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j7^y5fL-:pyi-b'/ 



f;fcOT?r3*S:x.T<f;?i.>, }fti}IT-IO€(7>*(r-^JX-MSX- FANICf^Lfc^nr/^A 
■>ST«fc;»#^lJ-3T(!>^^#X-«t)L^frTf;^D^^A3^ '?)(ESf-ft«-¥'^- 
7 TIMMSX-FAN''77'>?'A-7>->— hj«*X-o LSHJljlJ 6 f!30 B'J^'S. 



«f-fJ5s»5:^fiE:5fp^5A0ffiU75 



AjB. BASIC^P^'^AU 
Xh®15:¥15?:¥A^IEU<JT 

¥r-iiiiuru<fc(»ic'('Fton 
^. Z7.^%(Dmi^^msbtcy 






z>Ki-tf'm±\zu^tz^.^-y 
{=r'iikO)\z'y7.^-\L~y, 

SAVE"CHECK"0 

(CSAVEr'B;Sn)„ 

SAVE"CHECK", AO 



^Aj®7^n^'^A^ijS^t 

©RUNO 






9000> 153 



IT 



?7l 



iiSfflx—' S' 



ru<t®r\ wmm'f-yn 
iiorntto. ^(D'iicn^z 

ofc6£7.BAj:nd:,^>oruUo 

@eT©:^n ^-^ A5ii?>ffl?'- 



rff-fis^*f£X^E3'n^' 
5AjlJ.}iKU7,Si:^ofc< 

IrI l;a^<^'5/)^^5^x >;^ i7t-§::' 
Ac^©SiSr-*s:^^-7.;£g 

IgLfciO, REMJC^iSacn 

orufco-rs<!:-&©i7rBa 

®St>A^L;»t-^L/r35L\t 

^x':/y\^tzi^f-A(Dyny 
=yh^^-y{T'^yy)fT'bu 

-Kc ;i©ci:S, IfgWCRUN 
BL7iUr33<(l MrtRU 

^Aj©Aofc7^— :7(x'r 7. 

MERGE"CHECK" O 

t-rsoiinr-^soffi^^pi?'^ 



Atfo;itf-g)o 

SCREEN0 O 
W I DTH40 O 

tur33<o 

@GOTOg000O 

(frnB''"Sf-ns3*^5xf£E 

^P^'5Ajtf^0(3:L;(».-&n 

^■n©^-A©'":7n^'^Aii 
^.ffl7'-57j t fB]L;ff^^c©x- 
gAd:orL^/c17S^©::'P^■^ 

A^i?i?ii/]^»ru<o -r 

»tf^S5IS^/Co 



@7-'— $'©a5(i:3-5/]'^^d;<Ad: 
ofcb. OKo 

©RUN-rs^xc 

DELETE 9000-306 

0O 

c!:ur'"Sf-ns3ab>5x^E:7 

P^'^Aj^j^STSc 

-A^P^'^A^x-:7(7'V 

RUN© 

®::nr9g.5A-tz>s, i^ 

lc^-A^P^'^Atft!l< tt-T'o 
77tf-, i5-tf>%*Ut6, 
Z^'P ^'^ APiJiA^SISfflSD*^ 

#%cur. mm(Dm\~y^ 






9000 


• NEW TYPE CHECK SUM --- 


9010 


V=PEEK(&HF676)+PEEK(&HF677)«256 


9020 


V1=PEEK(V)+PEEK(V+1 ) «256: L=V1 -V-1 


9030 


VS=PEEK(V+2)+PEEK(V+3)»256 


9040 


IF V1=0 THEN END ELSE S=0 


9050 


FORI=4TOL:S=255AND(S+PEEK(V+I)»(IMO 


D10) 


:NEXT:PRINTUSING'' ###*#>###"; VS : S : 


9060 


V=V1 :GOTO 9020 






9000>153 
9040 > 28 



9010 >165 
9050 >248 



9020 > 95 
9060 >??? 



9030 > 46 



THE LINKSXt?K7'ni''5A<7)$'''>>D- Y-*)—\ci7,'^/ 




5^JU/\-7. 



DULVERf 



1 DEFINTA-ZrSCREENI . : KEYOFF : COLORI 5 , , 
:WIDTH32:SPRITE$(0)=CHR$(24)+''$$ ■ttDD" ^ 

2 A$="017F7F7F7F7F7FFF":FORI=0TO23:VPOKE 
776+1 + (I¥8)h56,VAL("&H'' + MID$(''AA55AA55AA 
55AA55''+A$ + A$,I»*2+1 .2) ) : NEXT : VPOKE8204 .8 
0:VPOKE8205,87:VPOKE8206.195:READA$(0) .A 
$(1),X,Y,M$:X(0)=5:X(1 ) =25 : R$ = CHR$ ( 1 1 ) Q 

3 S=STICK(0) :X=X+(S=7AND2<X)-(S=3ANDX<30 
) :Y = Y+(S = 1AND3<Y)-(S = 5ANDY<17) :PUTSPRITE 
0> (Xw8.Y**8) ,15:FORI = 0TO1 : V = SGN ( X-X ( I ) ) :W 
= SGN(Y-Y(I) ) :R=(L<RND(1 ) **1 0ORVPEEK (61 44 + 
X(I)+V + Y(I)h32 + W*»32) = 105) : X ( I ) =X ( I ) -VwR Q 

4 Y(n=Y(I)-W*tR:LOCATEX(I) .Y(I) : PRINT"!" 
:K=K+(X=X(I)ANDY=Y(I) ) : NEXT : PRINTRS ; F : IF 
KTHENPLAY"03C1":P0KE-869.1 :RUN: 'byTPM.CO O 

5 Q=VPEEK(6144+X+Yh32)¥8:L0CATEX.Y:PRINT 
A$(-(Q=13) ) :W=(Q = 14) : F = F-W*t1 00 : IFSTRIG ( 
)=0THEN3:DATA" ". i , 1 6 , 1 3 . VI 5T250O7L64CG 

6 S0UND7,62:S0UND1 .1 : FORI=YTO0STEP-1 :Q=V 
PEEK (61 44+X+ 1^32) : IF97<QTHENS0UND8 , 1 5 : LO 
CATEX.I:PRINT"a" : SOUNDS . : F=F+1 

7 NEXT: FORI =0TO1 : IFX=X ( I ) THENLOCATEX ( I ) . 
Yd) :PRINT"q'':X(I)=RND(1 ) *30 + 1 : Y ( I ) =3 : PL 
AYM$:L=8-F/999:NEXT:G0T03ELSENEXT:G0T03 



m'j>i,h^n^z{ii:&(Dmmim 



ei C*5'"Bjtt^&HFF<7)*-VJl'4-<7) 
X\ Z<DiS.X'itnh~l^S.-ttA,o KEY1, 



cHR$(255)tJT*>-^■r-|;^-i'+-* 

JfttFl +--?:iT*>-«)5<i:-)t::4-'JS1-o 




: RAM8K 

• cs3csa2 






MU:)5l.i37-<-i>lz$)^)it 



15Y Qr?^'<^ 



DTPM.CO 
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zmnxm-f^iisii. mar^ 

Us t5«l^tR5BI*U®lfeU 



if 
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mm(Dmm 
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mcDrnm-^ xBiy 



X(n). Y(n) n-y(Dm 

m 

V, w D-ycDmmi^'!^ 




^I»^ 
^^/f 



^«a!P!i»'j- 



A$(n) a~ymmm 

F 7.ZI7 

I ju-:7ffl 

K f-Ayi-JK-m^y^ 

L bA;;u 

M$ §?-$' 

R$ *-VJb;gB®a±© 

hn-JUzi-Kei?ffl(CHR 
$(1 Dtf^AS) 

R P-:?1?i!)¥iJS7^^- 

(-l=^l»ql. 0=^R^Rl) 

y- X7"P y ^ AS6P1 ( RPSri ) = <fSM > SCREEN 



S 7.7'^'yyAtim 

o m'^^ntzmm±iz&^ 
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s m 






tofcA^©*IJS»7.Z17ltS» 
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WIDTH4 t LTV7. h^-S^L/ztScOiSailSd iIia*/;U40^x2*iTo f;/;L- 
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_:^ 

1 h 
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^^p=^ 



kJ 



5;L^^^57 



^-tt^Jb 



ZIREm MISSILE 



1 SCREEN0:WIDTH80:PRINT''WA 
C(128) .H%(6) :FORA=0TO128:B 
)=COS(F) :F=F+.05:NEXT:FORA 
(A)=K:NEXT:S$="S10M6000O6B 

2 COLOR15,0.0:SCREEN5:LINE 
31 ) .7.B:SETPAGE,1 :R=1 

3 CLS:X=100:Y=80:FORA=0TOR 
NTCRNDd )w255) ,INT(RND(1 )* 
E (25. 25) -(230. 186) . 1 . B : PA 
NE(100.80)-.(150.130) .0.BF: 
(1 ) ♦♦200 + 25) .INKRNDd )«160 
TSTEP(0.0) .8 

4 S=STICK(0) :D=D+(S=3)-(S= 
D=0ELSEIFD=-1THEND=128 

5 X=X+B(D) :Y=Y+C(D) :COPY(X 
) .110(100.80) ,0:F=POINT(X+ 
THEN7:DATA4.4.-4081 .-8451 . 

6 PSET(X+25.Y+25) .2:G0T04 

7 IFF=8THENPLAYS$:SETPA6E1 
STRIG(0) :NEXT:SETPAGE0:R=R 

8 FORA=0TO7STEP.2:COLOR=(0 
CREEN0:FORA=7.9TO0STEP-.1 : 



IT'':DIMB(128) . 
(A)=SIN(F) :C(A 
=0TO6:READK:HX 



10S0O6A1'' 


o 


(99,79)-(151 ,1 






o 


w20:COPYH%TO(I 




211)) :NEXT:LIN 




INT(0.0) ,10:LI 




CIRCLE(INT(RND 




+25)) ,3,8:PAIN 






o 


7) :IFD=129THEN 






o 


.Y)-(X+50.Y+50 




25.Y+25) :IFF>7 




-8451 .-8178.0 


o 




o 


:FORA=0TO1 :A=- 




+1 :G0T03 


o 


.A. A. A) :NEXT:S 




COLOR=(0.A.A.A 





) :PRINT.''GAME OVER' 



■round'';R:NEXT 



9 IFSTRIG(0)=0THEN9ELSE2 



o 



B(n). C(n) K->K©ffi 

A )v-ym 

n K->S©^»l75lq!SiJffllffl 




\-\%{n) +i'5i7$'x-$' 

K +-f^^$'x— 571^0^3 

R ^OVK'IS 

S Xx-f >><>Atlffl 

SS gx-^ 



: VRAMB4K 



isy':^(±38'<— >us>'jjr 



e^ifif!^ 




B«U„ KiiCOy— tZ>C(S7' 
7-9-/ \-±-eT5r Si^E* 

U OEUCD^SBlUllli^tr 

'3ie>c??^SSL-ruso;e 
tioo[aiu-z)r*"c<gsuo8 
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::>'^- V c PiSl^ (=*F I' ^ i7 $- ) 
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o"^-^o 



•y-A7r-y\:-«D!g 











J 



VRAMSUffiH 




■"Z I RETTA M I S 
S I LEj^UXhc^'feDC 

c^5^©Hft C Eta 6nfc¥ig 

IS, u^ibmz7.oo-)b[j 

t:i;a7';b'<-y<i: 

-SET PAGE- 

MSXEr-B, 7,^U-> 

f5l;K^r-ffi^«>AMS6ffl^=£ 

nse«!i©ffin7i tf s o r , 

/305Btfi>'rL7'Jb^-y<t 

UA^U. SET PAGEt 
PJL/'^— V(t7^x-r- ^'^- 

d:iIff5/S:<^'^}i<'K-i;;£ 
'©^^^Sffiffl^^d:. t:v 



33$, ^©-^-i/'^t^'i/o.^ 

SET PAGE©»itB. 
SET PAGE ^V3.y 

il®P^©l21«*x-$'e2l 
-COPY- 

gigc^B. liH±©S5;*^ 
$i;s©^96«JbSL., ^©^ 
af*3©l K'7h2i©e©'lf 
^^B/)^©^P/i'\^L/^xS 

RAM. :7P':^t!-x'f7.^ 
3 3r'(S, VRAM©'<-y 

^oruSo ::©d:S©ei2 
vC^iJU, Ii2g7t©ilffj=fc 

-&©s^®ff?r©<iSo 

COPY©«SIS. 
COPY (gsgJLllffJ©£ 
±ffi^, git7cllJf5©aT)^ 
#),lEig7c©^-vlS; TO 



\i^Z I RETTA M I S 
S I LEj©7.^n-Jl/©lki 

/K-yrBl©llJf*©gig®2-:3 
©x^--;/^^5^<Wfflb 
fct©^d;©/c<, 
T©iii;SMrsuUo '^- 

^©^-AHH^fflS. ft2 
©SET PAGE, ^-CK 

-'J 1 ^g^^x-f :^'K-s;c 
fi^br. zL-■y-A^6B, 

i^'©g5ic¥^ffi^rBi;£fflL\r 



nSo ^Lra5©COPY 
(X, Y)-(X+5 D, Y+5 
D), ITOd D 0, 8 o)r 

7-p^-i y^-iJizmt'titz 

a.7;b'^-i;'cgisurgfr 
os©/co c:©ii§^K'>h 
tf^iJ-rsto'icK-yh©^ 

^n-Jburuf)d;5ci,^ 

5tU5^lj-o 



:^^u->^-i< 



SCREEN5 



SCREENS 



SCREEN? 



SCREENS 



'^— V 



VRAM64K©^« 



0-1 '^-y 



D~l^-v 



ISfflT^BJ 



l^ffl^Rj 



VRAMIEBK©^^ 



0~3'-<-v 



0~3/<_y 



0-1 -X- y 



0-1^-v 








OCZIRETTA MISSILEjOT 2 -Ziff)^— v(7)i:«„ ±/j< 

Tt'-:>a7';i'^-vic|St-r^::i:CJ:-:)T'"j:«6'b*- 
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B^lt 




RAM8K 

cs3csa2 



muy5l.iZ8-<—>lz$)^)it 



1 SCREEN 1 ,1 : COLOR 15.1 .1 : KEYOFF : WIDTH1 4 : D 
EFINTA-Z:R = RND(-TII1E) : FORI = 0TO23 : VP0KE1 4 
336+ I , VAL ( "SH" +MID$ ( " 1 83CBD5A3C1 83C42041 
C7EFE3E0F010120387E7F7CF08080'',I*»2 + 1 ,2) ) 
:NEXT:FORI=0TO3:READM$(I) ,H(I) .N(I) :NEXT Q 

2 INPUT''tt^O (1-9) «fU'';A:IFA<10RA>9THEN2 
ELSEPUTSPRITE0. (120,70) , 1 : PLAVVI 5L64" Q 

3 CLS:E$ = CHR$(27) :PRINTE$"Y% < 11:5*1^^ z'^v 

z >'':P = -1 : J(7)=-1 : J(3)=-1 :IFPLAY(0)THEN3 O 

4 R = RND(1 )**4:IFQ = RTHEN4ELSEQ = R:P = P + 1 :PLA 
Y"05CD":PRINTE$''Y,$''M$(R) : FORI = 0TOA*1 : G 
OSUB7:S=STICK(0) : IFSTHEN5ELSENEXT : IFH ( R) 
=0ORJ(N(R) )=H(R)THEN4ELSE6 Q 

5 J(S)=-J(S) :G0SUB7: IFH ( R) =0THEN6ELSEIFS 
=N ( R) AND J (S)=H(R)THENFORI =010200: NEXT :G0 
T04 Q 

6 PLAY''04EDCDC2":H = H-(P>H)w(P-H) :PRINTE$ 
"Y/ $^! S5#'^^t^^fe!''E$''Y1#SC0RE''P;E$''Y2#H 
I-SC''H:FORI = 0TO1 :I = -STRIG(0) :NEXT:VP0KE& 
H1B00,208:CLS:GOTO2 O 

7 PUTSPRITE1 , (106, 66+ J (7) #8) ,8:PUTSPRITE 

2, (134,66 + J(3)*8) :RETURN O 

8 DATA** *tt*7 ,-1,7,L5 Stf'^Z ,-1,3.$# ^tt^" 

7 ,1 ,7.L5 ^If^T ,1,3 Q 



$3 



1^ 




YOSHixt^g-srg-o 
siscaio SUES'. A 




j(n) m(DYmmmMne 

mt(Dm(Dmm 

A UA;jb 

ES i7,^-»-^>X 

ffl(CHR$(e7)tfA§) 

H jux^y 

H(n) )«©tt,^75^'(l = 

I iU-3?ffl 

I $ b'^;u®ssffl 

M$(n) x->t-vffl 

N(n) T.T^'f '>^A;^l¥lJ^ 



•HSSilfflRCDiifS^ffl 



P XZIT' 

50 ^ftt^ 



D m^ig:^ ■■■ 

>SR*>; -^t— vt''— $'§® 

'y^A;f:»Iff¥iJS(7,x-f ■> 






B MS^ ■■■ 
@ x-57 ■■■ 




~ : FOR I = TO 3~ 
~: FOR I =0TO7~ 



2ft4C*S 

R = RND(1 )* 4~ 

R = RND(1 )* 8~ 



8 DATA»# StfZ .-1,7,L5 »ttT ,-1,3.Sff Stf 
T .1.7.t5 Stf'T .1,3.S* StfttO.I ,7,t5 Kcfo 
l>.1.3.$# Stf&o,-! ,7,L5 2tr''OU.-1.3 



flf!fA 






[ST:5tl*tia<7«i;tc*ari ?-f7>5Si.>ST-asieLT, Bizuttsttfts^-tfi-^T, tios sstesisi?f^4- 



10-7 TIMMSX-FAN)B*ai'^7 5->yA- 




mtt^'Wt^/ 



: RAM8K 



muy:itZ9-<-'>iz^^)it 



10 SCREEN1 ,0:WI 
,12:KEY0FF:F0RI 
DSrKsk2V3T' ,1) 
I + U335.ASC(MID 
zD",!) )-32:NEXT 
+6144) :DEFFNB(R 
20 R=R+1 :CLS:E$ 
E6OSUB70:M=31 :N 
30 PRINTE$"Y6 " 
30:LOCATEFNB(24 
NEXT:FORI = 0TOR»* 
EXT:DATA1049,82 
40 S=STICK(0) :X 
0) :Z=(STRIG(0) ) 
Y<1 ) :PUTSPRITE0 
NA(M.N)< >94) + (N 
D2=0)+FNB(3)-3: 
50 IFY>210RFNA( 
Y)=131THENPLAY" 
PRINT" ":IFCMOD 
60 PRrNTE$''Y 0S 
70 PLAY"03EC":P 



DTH32:DEFINTA-Z:C0L0R15»4 
=1T07:READA:VP0KEA.ASC(MI 
)+2:NEXT:F0RI=1T024:VP0KE 
$(''8¥5¥8 bbbz¥¥8 tbD^zD 
:DEFFNA(X.Y)=VPEEK(X + Y**32 
)=RND(1 )wR+2:SPRITE0N 
=CHR$(27) :X=2:Y=0:ONSPRIT 
=0:PRINTE$"Y %STAGE"R 
STRING$(32»126) ; :FORI=0TO 
) ,FNB(18)+1 :PRINT"^^tt^^": 
3:VPOKE6240+FNB(60 5) .43:N 
07,753,8203,8208.345,349 
=X+(S=7ANDX>1 )-(S=3ANDX<3 
^2-(FNA(X,Y)< >94) :Y = Y + Z-( 
, (X**8,Y*f8) , ,-(Z = 0) :N = N-(F 
>20)h22:M = M-SGN(X-M)»KYMO 
PUTSPRITE2, (M^*8,Nh8) 
X,Y)=43THEN70ELSEIFFNA(X, 
06L64CE" :C=C+1 :LOCATEX,Y: 
20=0THENPLAY"GBG" :GOTO20 
CORE"C:GOTO40 
RINTE$"Y*t^tGAME OVER'':FOR 



©X Ati?tt-w 



o 



o 



I=0TO1 :I=-(STICK(0)=5) : NEXT : RUNE LSENEXT O 



X, Y ^-KUN©S^=* 

Z ^-KUN®Y)l#ti:» 

M, N ®ffl@Eti=^x8Ur 






ES XT.'T-yi^-'TyX 

ffl(CHH$(27);f)^AS) 
FNA(x, y) 7.:75-i'S 

a - K ^iiA;s (a--y---^R 
HIS) 

FNB(n) X7^-vl51 A^ 

6 R ^ r'CDSSf'FfiJfflSLIS U 
-- tf-SSHIS) 

I iv-ym 

R Xx-f>'IS 



m mmmm 
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^-KUNI 

7^^ 
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^aiv. z>~hj. f-L 
U5l:^t\ a-. SUE 

/tV=l>B1B28SH<- 
7D73'SBS®a'ffi<a:3 

Efflrg-o A»as^fea 

■5o 
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s 
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»§?Bf©iiJO::s^i^Ri 

•mmmm^9yy^-< hm 
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X 
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^10 SCREEN 1 .0»0:WIDTH32:KEYOFF:COL 
1 :DEFINTA-Z:SPRITE$(0)="»<rt»f^rfl" 
-TIME) : FOR I = 0TO4: SPRITES (1 + 1 )=" 
:X(I)=INT(RND(1 )*50+l02) :Y(I)=INT 
^♦25 + 83) :M(I)=INT(RND(1 )+»5-2) :N(I) 
D(1 )h5-2) :NEXT:T=0:TIME=0 
20 ONSTRIGGOSUB100:STRIG(0)ON 
30 S=STICK(0) :M(Z)=M(Z)+(S<9ANDS> 
ANDS<5) :N(Z)=N(Z)+(S=80RS=10RS=2) 
DS>3) 

40 PUTSPRITE0. (X(Z) ,Y(Z) ) .15 
50 FORI=0TO4:X(I)=X(I)+M(I) :Y(I)= 
I) :PUTSPRITEI + 1 » (X(I) , Yd) ) ,2+1^2 
60 IFX(I)<0ORX(I) >247ORY(I)<0ORY( 
HEN80ELSEIFRND(1 X .1THEN M(I)=M(I 
ND(1 )«3-1 ) :N(I)=N(I) + INT(RND(1 )w3 
70 NEXT :T = TIME¥60: LOCATE 1 ,0: PRINT 
Ut;##### 5u^o#####" ; T ; H : GOTO30 
80 STRIG(0)OFF:LOCATE14,11 : PRINT" 
:H = H-(T-H)*(T>H) : PLAY"S8M9000O5L 1 
GRC5": LOCATE 11 .13:PRINTT"» ri'^vti^i. 
90 IFSTRIG(0)=0ORPLAY(0)THEN90ELS 
100 Z=(Z+1 )M0D5:BEEP:RETURN 



0R15.1 , 
:I=RND( 



(RNDd ) 
=INT(RN 



5)-(S>1 
-(S<7AN 



W)*^^3'. 



,^teG/-9,,y 




Y(I)+N( 

I) >184T 
)+INT(R 
-1 ) 
USING"/! 

T^-fe*." 
5BREARD 

E10 



X(n), Y(n) yo-y^CD 



M(n), N(n) ^n-:/^© 



H mm9^A 

I mmmitm/iv-ym 

T ^-TA 



^ ^ ^g-o »ffl, i«^ »se, feifl 




m mmm-^ ■■■ 

y^miByy. yu-jy)%y 
p ■v^©^;oMSffi^iss«3'p '7 
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•^-A7r-A-*ijs(y-A 

:?P-:;^©S#li5t^ll(7P 

ll<7-z_^7r-y\'-fiaM 
muy[y-c m 

( K 'J ;y- tf i¥*n/c t s©iij 



e<s.«»>^ffl3g*<»«jiim>e»»is<i4s5m>=*?gc^«w>a«:t<ffl#m>*jii«*<*Ba??>»#^ag<;tmjff>ifi»iE#<±Bs«>*j»e<H 
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Tlt-Jb 



SUPER BALL 



1 COLOR 15.1 .1 :SCREEN3.1 : SPRITES ( ) =''tt^Z< 
<$BB":SPRITE$(1 )=''<fT««tf<'':DEFINTA-Z:X = 
11 8: XI (0)=24:X1 (1 ) =24 : J = : W = 85 :OPEN''GRP : 
"AStl : LINE (4, 8) -(244. 176) . 2 . B : LINE ( 1 24 , 1 
00)- (124. 172) .15:N=9:M1=5:0NSPRITEG0SUB8 

2 M=118:DRAW"BM20.20'':PRINT#1 . L ; " : " ; K 

3 Q=0:FORI=0TO1 :X1 (I)=X1 ( I ) + ( 1 +STRIG ( I ) * 
2)*4:X1(I)=X1(I)+((X1(I)>110)-(X1(I)<9)) 
«4:NEXT:PUTSPRITE1 . (X+Xl ( ) . 1 60 ) . 5 . : PUT 
SPRITE2. (X-X1 (1 ) .160) .6,0:M2=M1 :N=N-J 

4 J=J-1 :M=M+M1 :IFM<8THENF=1+(M>8)w2ELSEI 
FM>228THENF = 1 + (M>228)**2ELSEIFN>84ANDM>10 
4ANDM<132THENF = U(M<118)h2ELSEQ = 1 

5 IFQ=0THENM1=FwABS(M1 )ELSEIFN>176THEN7 

6 PUTSPRITE0. (M.N) .9.1 : SPRITEON : G0T03 

7 SPRITE0FF:K=K-(M<118) :L=L-(M>118):J=0: 
N = 10:M1=SGN( (M>1 20)^2+1 ) <*5 : PLAY"S9M3000C 
'':LINE(30.20)-(210.60) .1 . BF : IFK = 9EQVL=9T 
HEN2ELSE:DRAW"BM20.20":PRINT#1 . L ; " : " ; K : W 
= W+( (L = 9)-(K = 9) )*t50:PSET(W.90) :PRINT#1 ," 
WIN'':FORI = 0TO1 :I = -STRIG(0) : NEXT: RUN 

8 SPRITE0FF:F = 1 + (M<116)*»2: J = RND(1 )<t10 + 6: 
H = -(M<118) :S = STICK(H) : PLAY''S4M2000B" : Ml = 
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Q 



O 



if 

It 



( (S=7)-(S=3))»(RND(1 )w4+5) : RETURN 



o 



o 



cnzfa/z/ siu : xrtz 
m : 16^0 es«®!# : mn 
a;?, mnmmto esse 

x-fo ilR ; UZ)S'P^A®o 
Wf : iSi«Agm±Rc, » 

t, gg<h;l^crt^sAiS 



mmcDmm 

X £«:7u-fi'-fflX^^ 

WtBfflll8A^A5) =*X + X 
(0), X-X(l)iUr«5^ 

XI (n) ^^^yi^^v- 

(Dxmmmirt (n-i =e7u 

•<+'-. n^2=X:?U-i'i'-) 

M, N m(Dmm 

Ml if©Xffi#lg53- 

MB 1 I5]^^©XffiSJg» 

(M 1 ©iifs^ffl) 

J JffflYH^lg^ 

F m^mmy'yC)' 

H i/S'TXT^'f ':^^S^ 

I JL/-:7ffl(hU:a-Ati 



K, L fl;s 

S X^-<'y<7Ayim 

mmm.'S.mmmmwsm^-y'z'-^ 

•^b-<i'-©xjsti^»(s 
'J:fl-A:ti)»:7b^-t7-g^ 
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10 SCREEN 1 .2.0:WIDTH32:KEYOFF:COLOR15.1 . 

1 :DEFINTA-Z:DIMB(2.8) : DEFUSR=1 05 : A=USR C 

) : READAS : FORI =0TO47:VPOKE 14351+ I. VAL("&H 

''+MID$(A$. I»2+1 .2) ) : NEXT: FORI = 0TO29 

20 READA$.B$:FORJ = 0TO7:VPOKEVAL("&H''+A$) 

»8 + J.VALC''&H" + MID$(B$. J*»2+1 . 2 ) ) : NEXT J . I : 

FORI=0TO4:READD:VPOKE8204+I .D:NEXT 

30 FORI=0TO2:READA$.B$:K$(I)=A$+CHR$(29) 

+CHR$(29)+CHR$(31 ) +B$ : NEXT : E$=CHR$ (27) 

40 FORI=0TO26:PUTSPRITEI. (72+ ( IM0D3)»1 6. 

23+(I¥3)»*16) .1 .0:NEXT:LOCATE8.2: PRINT" pq 

qqqqqr"; : FORI =0TO1 7 : PRINTSPC ( 24 ) " sdddddd 

t"; : NEXT :PRINTE$"Y5(uvvvvvvw'': FORI = 0TO8 

50 A=IM0D3:B=I¥3:X=9+A»2:L0CATEX.3+B«2:P 

RINTK$(2) :LOCATEX. 1 5 + B«2 : PRINTKS ( 1 ) , 

60 B(A.B)=2:B(A.B+3)=0:B(A.B+6)=1 :NEXT:L 

0CATE18.2:PRINT''*afttt"E$''Y#4xz7''t" 

70 PRINTE$"Y52» ♦ ♦" : PLAY"TSM5000O7C32 

84", •'TS07D32F4": FORI = 0T0 1500: NEXT :S = 1 

80 IFSTRIG(0)+STRIG(1 ) THEN 1 20ELSEK= (STIC 

K(0)+STICK(1 ) )MOD4:IFK=3THENBEEP:GOTO100 

ELSEIFKTHENFORI=0TO500:NEXTELSE80 

90 PLAY''S15ri300O8C32" :S = SM0D2+1 :PRINTE$'' 

Y#4''MID$("xzyz".S»2-1 .2) :GOTO80 

100 A=8204:B=A+1 :V=VPEEK(A) : VPOKEA. VPEEK 

(B) :VPOKEB.V:FORI=0TO29:A=770+I :B=861-I : 

C=VPEEK(A) :GOSUB430:C=VPEEK(B) :VPOKEB.D 

110 GaSUB430:VPOKEA.D:NEXT:GOTO80 

120 PLAY''SM9000L8O3AODAO5D2"."SL8OR16CGO 

5CG2'' :PRINTE$"Y«4> ~ ! " 

130 FORI = 0TO50 00:NEXT:PRINTE$"Y»4z{T''t" : 

CX=0:CY=6:ONS-16OTO250 

140 PRINTE$''Y)2Sli6ff)"E$''Y«4z<:7'*'t" 

150 IFSTRIG(0)+STRIG(1 )=0GOTO200 

160 IFB(CX.CY)< >1THEN20 0ELSEPUTSPRITE27. 

.0: IFB(CX.CY-1 )=0THENI=CY-1 :GOTO210 

170 H=0:FORI=CY-1TOCY-4STEP-1 :IFI>-1THEN 

P=B(CX.I):H=H+(P=1 )»3-(P=2) :IFP=0THENIFH 

>0THEN210ELSEELSENEXT 

180 K=STICK(0)+STICK(1) : ONK+1 G0T01 50 : CX= 

CX+(CX>0ANDK>5)-(CX<2ANDK>1ANDK<5) 

190 CY=CY+(CY>1AND(K<30RK=8) )-(CY<8AND(K 

>3ANDK<7) ) : SOUND0.0: SOUND 1 . : S0UND7 . 56 :S 

OUND8.16:SOUND12.10:SOUND13.0 

200 PUTSPRITE27. ( 72 + CX»»1 6 . 23 + CY»1 6 ) .3.1 : 

FORI = 0TO300: NEXT :G0T01 80 

210 JX=9+CX«2:LOCATEJX.3+CYm2:PRINTK$(0) 

:L0CATEJX.i+I*»2:PRINTK$(1 ) :GOSUB400 

220 FORJ=0TO200:NEXT:B(CX.CY)=0:B(CX.I)= 

1 :FORI = 0TO8:IFB(inOD3.I¥3)< >1THEN250ELSE 

NEXT:PRINTE$''Y»»4>5T*f :GOTO240 

230 PRINTE$''Ym4 ttT^t" 

240 PRINTE$''Y)2*a6(»'':SOUND7.56:PLAY''SM20 

000O5LED8E8GOGA1'' .'•0LSF2D2E1'' :FORI = 0TO40 

00:NEXT:PRINTE$''Y/2- o» • " : FORI = 0TO1 : 1 = 

PLAY(0)-STRIG(0)-STRIG(1 ) :NEXT:GOTO40 

250 PRINTE$''Y)2lin "ES" Y»4z<:Z''t'' 

260 FORI=20TO0STEP-1 : MX=IM0D3: MY=I¥3 : H=0 

:IFB(riX.MY)< >2THENNEXT :GOTO290 

270 F0RJ = MY+1T0MY + 4: IF J<9THENP = B (MX . J ) : I 

FP=1THENIFHM0D2=1THENJ=MY+1 : GOTO330ELSEN 

EXTIELSEH = H+1-P»t3:NEXTJ.IELSENEXTI 



RAM8K 

csacsaa 
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^hJ'CL\a^\Ala.iKR«^DIX043O1 
zi>t:°zL-5'^3SgSC < niiT— 7 



280 FORI=20TO0STEP-1 : MX = IM0D3 : MY = I¥3 : IFB 

(MX.MY)=2AN0B(MX.MY+1 ) =0ANDB ( MX . MY+2 ) =1 T 

HENJ=MY+1 :GOTO330ELSENEXT 

290 FORI=23TO0STEP-1 : MX=IM0D3 :MY=I¥3 

300 IFB(MX.MY)=2ANDB(MX.MY+1)=0THENJ=MY+ 

1 :GOTO330ELSENEXT 

310 FORI=20TO0STEP-1 :MX = IM0D3 :MY = I¥3 : H = 

:IFB(MX.MY)< >2THENNEXT :GOTO420 

320 F0RJ=MY+1T0MY+4:IFJ<9THENP=B(MX. J) :H 

=H+(P=2)»3-(P=1 ) :IFP=0THENIFH>0THEN330EL 

SENEXTIELSENEXTJ.IELSENEXTI:GOTO420 

330 JX=9+MX»2:FORI=0TO4:LOCATEJX.3+MY»2: 

PRINTK$( (IM0D2)«2) : FORK=0TO1 00 : NEXTK . I 

340 L0CATEJX.3+J»2:PRINTK$(2) :GOSUB400:B 

(MX.MY)=0:B(MX. J)=2:F0RI=18T026:IFB(IM0D 

3,I¥3)=2THENNEXT:GOTO230 

350 FORI=3TO26:MX=IMOD3:MY=I¥3:H=0 

560 IFB(MX.MY)<>1THEN390 

370 IFB(MX.MY) = 1ANDB(MX.MY-1 )=0THENU0 

380 F0RJ=MY-1T0MY-4STEP-1 : I F J >0THENP=B ( M 

X.J):H=H+(P=1 )»3-(P=2) : IFP=0THENIFH >0THE 

N140ELSEELSENEXT 

390 NEXTI:SOUND7.56:PLAY"SM3000O5C8''.''SO 

B-S" : FORI =0TO1 000: NEXT :GOTO250 

40 S0UND6. 11 :SOUND7.7:PLAY"SMM1500C16'' 

410 PRINTE$''Y)2 ''E$"Y»4 '•:RETURN 

420 SOUND7.56:PLAY"SM300 0O5E8'' .•'S05G8'':G 

OSUB410: FORI =0TO1 000: NEXT :GOTO350 

430 D=0:FORJ=0TO7:D=D»2:D=D+CMOD2:C=C/2: 

NEXT:RETURN 

440 DATA FF01010101010101010101010101010 

1FFFFFFC0C0C0C0C0C0C0C0C0C0C0FFFF00FEFE0 

606060606060606060606FEFE 

450 DATA 60.FFFFFEFEF6F6C0F6.61 .FFFFFFFF 

1FFF07DF.62.EEDCFFFCF3FFFFFF.63.EFB77FFF 

FFFFFFFF. 64. FFFFFFFFFFFFFFFF 

460 DATA 68.FFFFF8F7FFFFFFFE.69.FFFF3FDF 

DFDFBF7F.6A.FDFBF7FFFFFFFFFF.6B.BFBFBFDF 

FFFFFFFF. 70. 00003F3F3F3F3F3E 

470 DATA 71 .0000FFFFFFFFFF00.72.0000F8F8 

F8F8F8F8.73.3E3E3E3E3E3E3E3E.74.F8F8F8F8 

F8F8F8F8.75.3F3F3F3F3F000000 

480 DATA 76.FFFFFFFFFF000000.77.F8F8F8F8 

F8000000.78.507C9010FE284887.79.2852CC7F 

D2645A61 . 7A. 04781 07C1 0FE1 020 
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490 DATA 7B.047854FE54BA547C.7C.20C444E8 

48EACA5O.7D.0AEEBFE4BFE5A932.7E.1C247E22 

3E223E12.80.107A14FE285C8438 

500 DATA 81 .7E507C507F81A92A.82.7E9455FE 

53525291 . 83 . 052164C645444438, 84 , 2649A244 

EA71C442 . 85 . 7C447C407E82B234 . 1 61 . 1 66 

510 DATA 161 .241 .241 .dd.dd . 'a.bc.hl . Jk 



5)-^^n-e-'nxi6+72, xl6+ 



X =]V©Xffi^(^- 

JX 

MX 

12B 



■AH 



•=lVfflXffi«(^-A 



MY ^Sfflt^^^^ 



AS. B$ ^•-^i5B^3*^ffl 

A.B,C.D,V nvSIEffl 

B(n,m) S®CD1;>^^(0 = 

E$ l7,':r-»-':r>7, 

ffl(CHR$(E7)A^AS) 

H =1Y^11*IJS*0>S 

I , J )\j--Jm 

K Xx-T'Vi^A^Dffl/JU- 

K$(n) Ziv®+1'^^5' 

P =lV®|iJSffl 

30-70 mmmw.%. t-u 

80-110 'y-AX$'-S¥iJS 

¥m#aiR*iJS«0.ii(Xx'f ■;/ 

^Atl) 

]£0 f-UX'^-V- 

130 5amB 

140-810 :7b'n'-iij®«i 

Jl/-5^> 

140 y-^'tz-vS^ 



150 z^^3Wm'^{WMi 

-Kh) 

IBO av^UJfiiil (S/]^ 

170 av^»)«aiie(i!i/]^ 

180-190 ;'D-v;b^ll]iZQ! 

200 fi-V)\^m.m 
210 ziVSS'x 
220-240 g5W*iJ^®a 1 (7 

250-320 =l>tfi-5'ill®«0; 

250 X'^tz-i/'SS^ 
260-280 ^l)-r5=lv 

290-300 UV^B^Sl 
(ISA^-r=lV®Sy®Mgl- 

310-320 ziV^B^ftS: 
(11*^1" =1 v'®fICZ]VA' : 

330-340 u VSf^. l#fiJ¥iJ^ 

350-390 7U-<1'-®K7,*iJ 

400 =lV^JT-3g 

410 ?gas^-y-:?'JU-5^> 

^5 Si CI la];l^) 

420 zi>tfiL-$'®K7,Jaii, 

430 =iv®sg+t;:''JL/-9^> 
440 x75'rh^-$'(fjior 

450-500 +1'^^$'y'($'->. 

+i'^^^®e?-5'(ft2or- 

510 +I'^i7^®gx-5'.=l 
v^SfflT'-^' (^72or-iTi4i® 




(i':yn^7Aggif-'$^ .^- 






10> 28 


20>253 


30>135 


40>148 


50>164 


60>251 


70> 38 


80>175 


90>181 


100>161 


110> 3 


120> 54 


130>191 


140>199 


150>179 


160> 69 


170>220 


180> 14 


190>221 


200>169 


210> 50 


220>U0 


230 > 83 


240 > 67 


250 > 86 


260>177 


270>150 


280>216 


290 > 96 


300>185 


310>177 


320>247 


330>123 


340>172 


350>138 


360> 17 


370>200 


380>108 


390>102 


400> 65 


410>193 


420>129 


430> 13 


440>175 


450>209 


460> 10 


470 > 28 


480>222 


490> 25 


500>108 


510> 98 
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1 DATA 2159Cin5DC1010400EDB021E3C13600 
23360023360023360 023360 023360023. 07E7 

2 DATA 36002161C1012F10712336FF23360423 
360E2379C62F4F10EF061021A1C1CD48.09D3 

3 DATA C1E6033C7723CD48C1E6037723232310 
EDAF32EBC1AFCDD500FE032806FE0728.0E56 

4 DATA 09180C215EC134341805215EC1353506 
08DD2161C1DD7E00DD8640FEBF381ACD.0BA4 

5 DATA 48C1E6033CDD7740CD48C1E6033D3DDD 
774 1CD48C1DD7701AF 00770 0DD23DD7E> 1019 

6 DATA 00DO8640OD7700OD23DD23DD2310C606 
08OO7E00DO8640FEBF381ACD48C1E603.0EA7 

7 DATA 3CDD7740CO48C1E6033D3DOO7741CO48 
C1DD7701AFOD770 0bD23DD7E0 0DD9640 .0FDA 

8 DATA DD7700DD23DD23OD2310C6215DC1 1 100 
1B014400CD5C00010A0721 1 1 ISIIESCI .0A14 

9 DATA 1A8112FE0A0E0020040E01AF12C630CD 
4D002B1310EA06102161C1CD21C1 10FB.0A12 

10 DATA C93A5DC1D608BE301CC610BE3817233A 
5EC1O608BE300AC610BE380 53E0132EB.0C6B 

11 DATA C1232323C92318F9C5ED4BE1C1ED5F81 
804847ED43E1C1C1C9A078000F000000,0F25 

12 DATA 00000000000000000000000000000000 
00000000000000000000000000000000, 0000 

13 DATA 00000000000000000000000000000000 
00000000000000000000000000000000, 0000 

14 DATA 00000000000000000000000000000000 
00000000000000000000000000000000, 0000 

15 DATA 00000000000000000000000000000000 
00000000000000000000000000000000,0000 

16 DATA 0055AA000000000000000000FF0100FF 
FF03FEFFFF0401FFFF0101FFFF0100FF.0BFF 

17 PRINT"WAIT'':DEFINTA-Z:CLEAR999,&HBFFF 
:FORI=0TO15:E=0:READD$:FORJ=0TO31 :C=VAL( 
'•&H" + MID$(D$,J + J + 1,2)) :POKE &HC0 00 + H»32 + 
J.C:E = E + C:NEXTJ:READD$:IFE< >VAL ( "&H" + D$) 
THENCLS:LOCATE10.10:PRINT''DATA error in" 
;I + 1 :ENDELSE:NEXTI : DEFUSR = &HC055 : DEFUSR1 
= S,HC000 



•er 







OdSL 
Crwm 



EMGVT-HALT.991 Sr^So 
PER DIAMOND DUSTjd 5 

56 • zapi.. ©ftfug-TPM, 
C0Kra;g0L>eu*ueo r« 



18 CLS:C0L0R15. 
EY0FF:L0CATE6.3 
=USR1 (0) :VP0KE6 
:A$=CHR$(&H90)+ 
"U^*lb^: O<-3(0-10 

19 FORI=0TO63:V 
SC''03062D5F5CDB 
8F474B68EAE6E0E 
DD7BE6D506B3C34 
262964818E0" ,1 + 

20 LOCATERND(I) 
OL:A=USR(0) :IFP 
020 

21 LOCATE9,10:P 
7:PLAY''SM30000T 
T01 :I=-(STRIG(0 



1 ,1 :SCREEN1 ,2,0:WIDTH28:K 
:PRINT"C5*-f7t:>h* •9'^;^h3" :A 
144+16,&H30:VPOKE&H90»8, 1 
CHR$(27) : LOCATES. 10: INPUT 
)" ;L:VPOKE8208.&H49:CLS 
POKEI+&H3800.VAL("&H''+MID 
E2EBECE1EBEB6F6B703C80C06 
AEAEECAC1870 010F3B3E5B7FF 
0F0 0C0F0F4EAFCBAC9A943092 
I+l ,2) ) :NEXT 

»28.1 rPRINTAS'L"; :FORI = 0T 
EEK(S.HC1EB)=0THENNEXT:GOT 

RINT'GAME OVER" : S0UND7 . 24 
200C1 ." :S0UND6. 255: FORI =0 
)0RSTRIG(1 ) ) : NEXT: GOTO 18 



\ 
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A USRiSISOfDfadUffl 

A$ m.m.m 



D$- 



■^iyyWM9i-Z.h- 






TfeT^'- 



56 ^ 




1~1B V~»igx-$'(?Tl7ir 

21 -tf-ATr-yv-sOiJi 

^fr ?SBA '"*->y-5j=«!fS«>rtEBM<W^Jl|«>-gffl!^ 

?€« *;5]«*<*3ffl«>=wo«j<aKm>iSi*#^- 




SHC(a(Z)(Z)~SHC(a54 

9-^x'J7^71ffift(USRi: 

SHC055~SHC0EA 

SHCOEB~SHC0FB 



SHC0F7~aHCl 1 5 
SHCl 1 B~SHC1 58 



(%':}Wz)Lmmf-^ :4;::r.%itTg^:::^"° ^) 



1 > 16 


2>121 


3>153 


4>183 


5> 3 


6>191 


7>224 


8>159 


9>252 


10> 93 


11 >215 


12>208 


13>208 


14>208 


15>208 


16> 91 


17> 56 


18>134 


19> 44 


20 > 77 


21>253 









j'-fiAj=«t;Sia>B*HPg<W«Jiim>4*Sifl<*liBS>aS&®s)<:fe)«m>«*«5<«^*m> 




^<^- 



l^eiiiiiiier 



:rami6K 



10 C0L0R15.1 .1 : SCREEN 1 . 2 . : WIDTH32 : DIMX1 

(8) -Yl (8) :KEYOFF:LOCATE10.12:PRINT"WAIT 

A MINUTE": FOR I = 38410976: A = VPEEK( I) :VPOKE 

I.A0R(A/2)0R(A/4) :NEXT 

20 VPOKE8210.&H41 : VP0KE8198 .&HD1 :VP0KE81 

99.&HD1 : FOR I =8200108207 :VPOKE I. &HA1 + 128* 

(I>8203) :NEXT 

30 FORI = 0TO55:VPOKE1U4 + I.VAL("&h''+MID$( 

"10101 01 0FF1 01 01 000000000000000000001 030 

70F1F3F7F00FFFFFFFFFFFFFF00FDFBF7EFDFBF7 

F00FCF8F0E0C0800000FFE8D18B17FFFF''.2»I + 1 

.2) ) :NEXT 

40 FORI=0TO55:A=-255«( ( ( 1-1 ) /9) = ( INK ( I- 

l)/9) ) ) :VP0KE1416+I.A:NEXT 

50 FORJ=0TO3:A$="":READB$:FORI=0TO31 :A$= 

A$+CHR$(VAL("&H"+MID$CB$.I»2+1 .2) ) ) :NEXT 

:SPRITE$(J)=A$:NEXT 

60 FORI=0TO8:READX1 ( I ) . Yl ( I ) :NEXT 

70 CLS:RESTORE500:FORI=0TO6:READA$:LOCAT 

E18.15+I:PRINTA$:NEXT 

80 = :W = 3: LOCATE 12.1 : PRINT" -KEIMMER-" 

90 ' start! 

100 B$ = "":A$ = "": = 0+1 : READAS : IFA$ = "encl''T 

HEN410 

110 SOUND7.60:PLAY"T127S1M50000O3L3GL16A 

BL4A04DL3C03L16BAL4BG04L3C03L16BAL4BG04L 

3C03L8AL2B"."T127V1302L3GL16ABL4A03DL3C0 

2L16BAL4BG03L3C02L16BAL4B603L3C02L8AL2B" 

120 G=0:LOCATE7.19:PRINTUSING"Sta9e##";O 

: LOCATES. 21 :PRINTUSING"Lef t##";W-1 

130 FORI = 0TO7:H = 0:B$ = RIGHT$("0000000'' + BI 

N$(VAL("&h"+MID$(A$. 1 + I»2 . 2 ) ) ) . 8 ) :FORJ=0 

T07:L0CATE12-I + J»2.6+I:IFMID$(B$. J + 1 .1 ) = 

"1"THENG = G + 1 :IFH = 0THENPRINT"$U":H=1 :GOTO 

150 ELSEPRINT"^U'':GOTO 150 
140 IF H=0THENPRINT" "ELSEPRINT"S ":H=0 
150 NEXT:IFH=1THENL0CATE28-I.6+I:PRINT"^ 



160 NEXT 

170 FORI=0TO7:H=0:B$=RI 

N$(VAL("Sh"+MID$(A$.17+ 

0TO7:LOCATE13-I+J«2.6+I 



= "1- 

180 

190 

200 

210 

220 

230 

R = D 

240 

:Q1 

R 



THENPRINT"«":G=G-1 
NEXTJ.i:FORI=0TO1 :I 
X=100:Y=37:P=156:Q= 



GHT$("0000000"+BI 
1*2.2) )) .8) :FORJ= 
:IFMID$(B$. J+1 .1 ) 

=1+PLAY(0) :NEXT 

93 

— ma i n 



enemy move 

IFX=PANDY=QTHEN350 

D=R:R=INT(RND(1 )»4) : IFABS ( R-D) =2THEN 



)+8»(R=2)-8»(R=0) 
P + P1 >249-(Q + Q1 ) 
Q1 >93 OR Q + QK37 
»(R>1)-2»(R<2) 



P1=16»(R=3)-16»(R=1 
=8«(R=0)-8»CR=2) : IF 
P+P1<137-(Q+Q1 ) OR Q+ 
THENP1=-P1 :Q1=-Q1 :R=R+2 
250 P2=P1/7:Q2=Q1/7 

260 ' player move 

270 IFG=0THEN390ELSEIFVPEEK(&H1800+(X+4 
/8+(Y+11 )»4)=32THEN360 
280 S=STICK(0) :IFS=0THE 
290 A=SH1800+(X+4)/8+( Y 



=146THENL=VPEEK(A-1) :N 
A-1) . (32-(L = 147)*116) :V 



N300 

+11 )»4:IFVPEEK(A) 
VPEEK(A+1 ) :VPOKE( 
POKE(A) .32:VP0KE( 




mU75l.U2-<—>lZ^^)it 



z>\Z. MSX • FANfflB-5"Cill 
SEU^t,§^•^17®to'Cg■o Sr 



A+1) . (32-(N = 147)»H13) :G = G-1 : S0UND7 . 62 : SO 
UND1 .9:S0UND8. 16: SOUND 12.64: SOUND 13.3 
300 Y3=0: J=9:GOSUB330:GOSUB320:GOTO220 

310 • sub 

320 PUTSPRITE0, (X.Y) . 5 . : PUTSPRITE 1 . (P-1 
.Q+2) .2.3:PUTSPRITE2. CX . Y ). 7 . 1 : RETURN 
330 X2=X1 (S)/7:Y2=Y1 (S ) /7 : F0RI=1 T06 : Y3=Y 
3 + J:J = J-3:PUTSPRITE0. (X + X2»I .Y + Y2»I-Y3) , 
5.0:PUTSPRITE2. C X+X2»I . Y+Y2»I ) .7.1 :PUTSP 
RITE1 . (P + P2»I-1 ■Q + Q2<«I + 2) . 2 . (2- C INT ( 1/2) 
=(I/2) ) ) :NEXT:X=X+X1 (S):Y=Y+Y1(S) :P=P+P1 
:Q=Q+Q1 :RETURN 

340 FORI=0TO2: PUTSPRITE I . (0.200) :NEXT:F0 
RI=0TO7:LOCATE12-I.6+I : PRINTSPC ( 1 7 ) :NEXT 
: RETURN 

350 ' miss 

360 S0UND7.44:SOUND3.13:S0UND9.16:S0UND1 
3.9:S0UND12. 1 27 :S0UND6 . 20 : Y3=0 : J= 1 8 :S=0 : 
GOSUB 330:W=W-1 : FORI=0TO99: NEXT : GOSUB340 
:IFW>0THEN120 

370 SOUND7.60:PLAY"T127S0M20000O4L16CDEL 
3FL4EDL16EDL2E"."T127V1303L16CDEL3FL4EDL 
16EDL2E":FORI=0TO1 : I=- ( PLAY ( ) =0 ) :NEXT 
380 L0CATE12.9:PRINT"GAI1E OVER" : FORI=0TO 
1 :I = -STRIG(0) : NEXT: LOCATE 12. 9: PRINTSPC (9 
) :IFSTICK(0)=5THENW = 3:GOTO120ELSE70 

390 ' clear! 

400 GOSUB340:FORI = 23TO2STEP-1 : LOCATE I. 8: 
PRINT"STAGE";0; " " : LOCATE 1 . 9 : PRINT"CLEAR 
! ": NEXT :L0CATE2. 8: PRINTSPC (9) :L0CATE2.9 
:PRINTSPC(6) :GOTO100 

410 ' all clear 

420 SOUND7.60:PLAY"T127S1M5 000 0O4L3CO3L1 
6BAL4BG04L3C03L16BAL4BG04L3C03L16BAL4BGL 
3AL8GR64L3G"."V13T12703L3C02L16BAL4BG03L 
3C02L16BAL4BG03L3C02L16BAL4BGL3AL8GR64L3 
G" 

430 CLS:F0RH=1T05:L0CATE3+H»4.7:PRINT"*U 

S":LOCATE3 + H»t4.9:PRINT"*(,>S":NEXT:X = 60:Y = 

45:P=0:Q=200:P1=0:P2=0:Q1=0:Q2=0 

440 F0RH = 1T05:L0CATE3 + H<»4.7:PRINT"Ji";MID 

$(" ALL ".H.I ) :"S":Y3=0:J=9:S=5:GOSUB330 

:GOSUB320:LOCATE3+H*4.9:PRINT"*";MID$("C 

LEAR". H.I) :"*":Y3=0:J=9:S=2:GOSUB330:GOS 

UB320:NEXT 
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450 LOCAT 
0CATE1B.3 
H=0TO1 : J 
-STRIGtB) 

460 • 

470 DATA" 
F860CD8F0 
000000000 
000000000 
480 DATA' 
400000000 
000000000 
8C5252240 
490 DATA0 
.-32.16.- 
500 DATA 



E 15.11 :PRINT"SEE YOU AG 
iRRINT'THANKS TO YOUR PL 
9:Y3=0:S=0:GOSUB330:GOSU 
:NEXT:CLS:GOSUB340:GOTO7 
dat a 



010 
F0F 
000 
000 
000 
000 
119 
407 
0. 
40. 



us 

510 
520 
0" 



30F3F7A2A1F1F3E3D131F 

0A070D0D0D8C8ECE6FCF0 

000000000F3F7F1F00000 

FCFFFEF8'' 

0000000000344A4994020 

0868933C4 04028 14E30 

151 2608 0844 A2A31 00000 

01364880" 

0.-16.32,-16.40.-8.24 

8.-24.-8 

»0S JUS "." $US I 
'."*US I t,0% " , 
Cont roL" 
St agedat a 



AIN!":L 
AY" :FOR 
B320:H= 


3F7F3F0 
" ."0000 
0000000 

20419A6 
0000 
0000000 

8.0.16 

*LiS" 
■ *US t, 



DATA" 80200E0A0E 10400000 00000 0000000 



530 


DATA 


0" 




540 


DATA 


0" 




550 


DATA 


0" 




560 


DATA 


0" 




570 


DATA 


0" 




580 


DATA 


0" 




590 


DATA 


0" 




600 


DATA 


0" 




610 


DATA 


0" 




620 


DATA 



'80304858102000000000000 00000000 
'8010482412080410000000000000000 
'942208221400000000 0008000000000 
'822AAAAEFAAAA800000000000000000 
■FCB4FCFCB4FC0000000000000000 000 
'8C3E7E7B5E360800000000 0000061000 
■801 07C6CD66C7C 100000000000 00000 
'E0485C151D150100400004050C14010 
'FFFFFFFFFFFFFFFF00082A2A0826041 
■end" 



L 



mmcomm 

X. Y 'T'<^-(Dmm 

XI (S). Y 1 (S) ^-^^ 

Y3 ^^v-(Z)i>>>:;?U 

tz<t^(DYmmm^[>vyy 

p, o o-^cDmrn-^tn 

PKQi o-^(Dmmm'!^ 

pe, Q2 o-3co^mm 

©7»©1) 

A EfflCVRAMOT'KL^ 

AS, B$ 'T-^m^Z.h 

D, R o-=>(Dmmm'^'3i 

G ^ffllX 

H ;b-^/li®Sg^ffl 

I ii'-ym 

J JL/-:?ffl/':r-rv-©>'' 

vyytioy^ 

L. N fistrnfcffi^±ffl 

O ^^>KI5 



w- 






:7n:73ZAPiJg 



ID mmm^. xsc^rn^ 

30-40 ^vz'O^'ii^-y'^ 

m 

50 7,75'rhy^$'->^« 

60-80 mmmm^s S'-f s 

90 REMJZ: 

100-190 ^-AHHSS^ 
100 T.'r-V'f-^m.di- 

110 -a^m 

120 xx-y^.'ir'rv- 

130-160 7,x-i>'a5^1 

{mm(Dm 

170-180 7,7^-i>-^^2 

190 SU^S^iSS 
200-PlD REMX 

230 '^--rv-to^^fflgis 

%m»Z.(D'n^REU^\ztVL 

-Act UriS'SetAT^Sci; 

5 CSS 

330-350 't?-z!^m 

360 REMJt 

370 ;^x-y^U7*iJS,57. 

380-390 S;lS¥iJ^«fliIi 
300 ^V^O^{'j-(^-. '7 



310 REMS: 

330 +1'5^$'S5^+t:^Jb- 

330 =*Ff 5^$'^5^+t7JU- 



340 

=j-y 

360 

fJS 

370 

380 

390 

400 

410 

430 

430- 

■m 



^-AilH;lS+t:;''Jb- 



REM3t 



■UA-J\- 




REM3C 
REM5C 

•450 7r-;b^ij7j!ai! 

REMSJ 



1 IJ^|J7 



T---5'(?750ri5E5*3^) 

490 'iT^V-CM^-tg^tfflx 

-$'(!760ri3!*>3a^) 

500 +-Sf'F«^fflx-5' (^T 

7ori3L^c:a^) 

510 REMX 

530-630 7,x-vx-$'(fi^ 

iDOrijca^zab*) 



(if iw=>kmLm-^ 






9 



10> 85 


20> 62 


30>163 


40>213 


50>204 


60> 6 


70> 1 


80>188 


90> 70 


100>218 


n0>193 


120>185 


130> 82 


140> 35 


150>220 


160> 12 


170> 83 


180>113 


190> 20 


200> 95 


210> 12 


220> 43 


230>227 


240> 16 


250>117 


260> 76 


270>198 


280>121 


290> 71 


300>211 


310> 84 


320> 63 


330>139 


340> 24 


350> 38 


360>108 


370> 65 


380> 28 


390>124 


400>216 


410> 16 


420>253 


430> 46 


440> 28 


450>128 


460>158 


470> 6 


480> 63 


490>133 


500>216 


510>125 


520>161 


530> 12 


540> 68 


550> 96 


560> 61 


570> 36 


580>110 


590> 20 


600>165 


610>158 


620>108 







58 







v:7h7ui?>K^as(i)^r^a;¥^«AOTi?«^tj=cit;sa>»^xA<^iBiB>w±ffi«]<^i]m>istsiif-<*ni:aj«>*;i**<ft*sm>ft 
<«<si.*>tt«;¥— <*«tajiR>uj>t5ivi<ajpB>iifflPi=<tiis]m>4'#*3S^ 
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Many Many Many 



: RAM32K 



mu'^it'iz-<-i>izh^)s.t 



10 'SETTING ••••••••••••••••••••••••••• 

20 CLEAR 500.&HCFFF:DEFINT A-Z:COLOR 10. 
1.1:SCREEN 1.2.0:WIDTH 32:KEY OFF:DEFUSR 
= &HD03E:DEFUSR1=8,HD012:DEFUSR2 = &HD000 

30 A$ = "T200S0M5000L8'' :PLAY A$.A$.A$:FOR 
I=0TO4:FOR J=0TO55+ ( 0< I ) h48 : VPOKE 1472+1 
»64 + J.VALC''&H''+riID$("001E2E5E5E5C5A00000 
0FFFF00FF00000078747E7E3E5E002C2C2C2C2C2 
C2C2C005A5C5E5E2E1E00005E3E7E7A047800003 
C7E7E7E7E3C''.1+Jt»2-96«(0<I) .2) ) : NEXT J. I 
40 FOR 1=1 TO 53:VP0KE 1 4341 +1 . ASC (MID$ ( 
"-jvvv-ppppppppppppLnnnLpppppppppppqsssqpp 
PPPPPPPPP0PPP0" ,1) )+144 AND 255:NEXT 

50 FOR 1=1 TO 6:VP0KE 821 2+ I + ( I<3)«1 5 . VA 

L("&H''+MID$('*88E85F'' .I.1)+''1''):NEXT 

60 'SETTING MACHINE LANGUAGE •••••••••• 

70 FOR 1=0 TO 22:E=0:READ A$:FOR J=0 TO 

31 :C = VAL(''&H"+MID$(A$> JM2+1 .2) ) :POKE &HD 
000+I»32+J .C:E=E+C:NEXT J:READ A$:IF E<> 
VALCSH'+AS) THEN SCREEN 1:PRINT "DATA e 
rror In "; I»1 0+80 : END ELSE NEXTI : U=USR2( 
0) :POKE &HFBB0.1 

80 DATA 2100042BCD4A00470FB0CD4D007DB420 
F2C92100D3060036002310FB06202E80.09C5 
90 DATA 36D1232378FE1E380C3600233E209007 
C607771805360423360F2310E3C9CD72.0994 
100 DATA D001800011001B2180D4CD5C002A02D 
47DA7C83A18D4B4C806037832F8F73DC5.0D4D 
110 DATA CDD800C1A7C010F22A00D47CB528CF2 
B18F9DD2100D3FD2180D40620C5DD7E00.0FBA 
120 DATA A7CA71D2FE0428353DDDE5CDD500DDE 
14F060279FE03200CDD7E013CFEEC2012.0F23 
130 DATA 3E04180EFE072010DD7E013DFE03200 
23EEBDD7701FD770110D9C371D2DD6601 .0C7F 
140 DATA DD6E02DD4603DD4E04DD5605DD5E067 
AFE1038107D816F7BC6105F9238145F7C.0CC1 
150 DATA 8067180E7C80677B825FD61038045F7 
D816F7CFEFF20050601CD80D2FEA62009.0D4B 
160 DATA 06FFCD80D2AF3203D47DA720050E01C 
D80D2FEEF20050EFFCD80D2DD7401DD75.1035 
170 DATA 02FD7400FD7501DD7003DD7104DD720 
5DD73067C0EFFFE4A3863FE503006783D.0DDC 
180 DATA 2060180A0E01FE553058783C2054210 
0D306037E23A7280DDD7E02965F3002ED.099F 
190 DATA 44FE0A38081107001910E81835DD710 
37BC6095F16002105D4193E011E00CD93.08E2 
200 DATA 003E0DCD93003E071E3ECD93007E060 
1CB7F280406FFED44DD7004DD7705DD36.0B9A 
210 DATA 0600DD7E01DD860357DD7E02DD86045 
FCD98D2A7CA71D242DD5601CD98D25047.0F71 
220 DATA A7C4DDD14BDD5E02CD98D2594FA7C4E 
8D14FB0201ECDDDD1CDE8D11816DD7E04,126F 
250 DATA 3CEE023DDD7704C9DD7E033CEE023DD 
D7703C9CD98D2CD4A00FEBE2005CD80D2.0FBF 
240 DATA 186FFED8200A3EC0CD4D00CD80D2186 
1573E20CD4D003E071E37CD93003E0D1E.0B69 
250 DATA 00CD9300DD7E01FE4F30042102D4357 
AFEC0283DFEC820 0C2A0 0D4CB3CCB1522.0CFF 
260 DATA 00O4182D2104D47E3426D30707076F3 
60423DD7E017723DD7Ee27723OD7E0377.0A60 




rfl-o x-BASiCB<5tMc<i\rg-„ yukios 

^LOT LOT LOTjffl^«rg-o^ffl^-/jBU 




270 DATA 23DD7Ea43CEE023D7723DD7E0577233 
60001040 0DDa9DD09FD09C105C27CD0C9.0C29 
280 DATA D53E011E05CD93003E071E3ECD93003 
E0D1E00CD9300D1C9210018C57AC609E6.0B28 
290 DATA F80600CB27CB10CB27CB104F09C17BC 
608E6F80F0F0F856FCD4A00FEBE3EFFD0.0ED9 
300 DATA AFC90000000000000000000000(g0000 
000000000000000000000000000000000, 0178 
310 'TITLE DEMO ••••••••••••••••••••••• 

320 S=1:L=5:P0KE &HD41 8 . USR1 ( 1 ) : GOSUB 57 
0:FOR 1=0 TO 2:F0R J=1 TO 73 
330 VPOKE 6210+I»196+32»( ( J AND3)-(20<J) 
)+J¥4.VAL(MID$(''01 11 100001001001 11 100000 

01 001 001 0001 11 000001 11 01 0001 000011 000001 

101001011". J, 1) )»(184-I»8)+32:NEXT J.I 
340 LOCATE 6.20:PRINT "PUSH CSPCD OR CTR 
IG] !":FOR 1=0 TO 6:P0KE &HD318+I . VAL ( "& 
H"+MID$("04A078FF01A" . I»2+ 1 . 2 ) ) : NEXT 
350 GOSUB 550:POKE &HD404 . 3 : U=USR ( ) 
360 'DRAWING STAGE ••••*••••••••••••••• 

370 CLS:SOUND 7 . 56 : A$="05CR8CDER8GR8AR8G 

R806CR8ER8G1":P0KE &HD418 . USR1 ( ) 

380 PLAY A$."R64"+A$:VP0KE &H 1 B00 . 208 : FO 

R 1 = TO 2:P0KE 8.HD300+ I»8 . - ( 1 + 1 ) «( KU) : 

A=160-40»U+I»80 AND 255:P0KE &HD301+I«8. 

A:POKE SHD480 + I»4.209+130»( KU) 

390 POKE &HD481 + I»4.A:NEXT:G0SUB 570 : RES 

TORE600:FOR 1=1 TO S:READ A$ . A : NEXT : LOCA 

TE0.2:PRINT A$:FOR I = -7 TO : LOCATEl . 21 + 

I:PRINT STRING$(30.MID$("995999 9999 

9P909P9 >')<)'] i)9iJ9iJ9iJ9U 9 ? U 99TAK09 

9')')tnR')l'it t " ,S»8+I) ) :NEXT 

400 LOCATE 14.1-13»(8<S):PRINT" " : FOR 

1=0 TO 6:P0KE &HD31 8+1 . VAL ( "&H"+MID$ ( "0 
44F78FF01" .I»2+1 .2) ) :NEXT:FOR 1=0 TO 0:1 
=PLAY(0) :NEXT:GOSUB 550 
410 'PLAYING ••••*••••••••••••••••••••• 

420 POKE &HD402.A:A=USR(0) :VPOKE SH1B00. 
208:SOUND 7.56:IF PEEK(&HD402) GOTO 500 
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43e 'CLEAR •••••••••••••••••••••••••••• 

4-4-0 A$ = ''05GG-G + GR8CER8FGR8EG06CEGR8CER8F 
Gl" :PLAY A$."R64"+A$."R64R64" + AS: LOCATE 
12. 12:PRINT"CLEAR ! ! " : S = S + 1 : L = L + 1 : FOR 1 = 
TO 0: I = PLAY(0) :NEXT:IF S< 1 1 GOTO 370 
450 'ENDING ••••••••••••••••••••••••••• 

460 A$ = ''04GR8AGR8AG4ED4CDR8AA4R8DR8AA4R8 
GR8GAR8G05CR8DE4R8G06C05C06CR8CDFF+1GG+A 
A + BOTCl" :PLAY A$ . ''R64''+A$ . "R64R64''+A$ 
470 CLS:FOR 1 = 3 TO 6 : A$ = ''0'' +STR$ ( I ) +''CDC 
E4.GAGB4." :PLAY A$ . ''R64" + A$ . ''R64R64" +A$ : 
LOCATE 9.I'»2 + 2:F0R J = TO 13:PRINT CHR$( 
ASC ( MID$ ( "Jfcf ttJlS" L" ^»ei4.(t ! ttSO ! t" < *t5(l)^5 
7!*!»^^t*t»! '"cz!S6i)'ttn»-3»-3»'' .I»U-41+J))- 
1);:NEXT:F0R J = TO : J = PLAY ( ) :NEXTJ . I 
480 IF STRIG(0) GOTO 320 ELSE 480 
490 'MISS ••••••••••••••••••••••••••••• 

500 A$ = ''03GFED4.R8CC-C1'' :PLAY A$.''R64''+A 

$.''R64R64"+A$ 

510 LOCATE 13.12:PRINT''MISS !'':L = L-1:IF 

L THEN FOR 1 = T-0 3000 : NEXT : GOTO 370 

520 'GAME OVER •••••••••••••••••••••••• 

530 A$="05G4.FED4.E8D4.CDE2C4.04BAGFEDC4 
03BGFDE02B03C'' :PLAY A$ . ''R64"+A$ . '•R64R64'' 
+A$:LOCATE 1 1 . 12 : PRINT'CAME OVER'iFOR I 
=0 TO 0:I=PLAY(0) :NEXT:GOTO 320 
540 'SETTING WORK AREA •••••••••••••••• 

550 SOUND0.50:SOUND6.5:SOUND8.16:SOUND12 
.20:FOR 1=0 TO 23:P0KE &HD400+I , VAL ( "&H" 
+ MID$(''0008FFFF04D1F1F3F5F7F9FBFDFF01030 
507090B0D0Fn31''.I»2+1 .2) ) : NEXT: RETURN 
560 'CLEAR SCREEN ••••••••••••••••••••• 

570 CLS:A$ = STRING$(30. ">■'') :F0R 1 = TO 22 
: PRINT MID$C"7''+A$ + ''D'^''+SPACE$(30)+'''>l/'' + 
A$ + '';^''.1-32»C0<I)-32»(I=22) .32) ; :NEXT 
580 LOCATE 1.23:PRINT USING " C MANY a ] 
STAGE ## CHANCE ##" ;S ; L ;: RETURN 
590 'STAGE DATA ••••••••••••••••••••••• 

600 DATA 9 99999 ttttt ')<) 9999 ttttt 
•»♦> 9 <) >) 9 9 ^>) 9 

>) <) 9 2. 9 *f*) 9 3. 9 t" 'I 

<) 9 9 t V<f 9 t 'I 

9 t y E* ') 9 9 

>= <) 9 9 
9 
9 999= 9 
99 9 9 *)*) 



>> 



t 99 
99 99999 t ') 
610 DATA 9 
99 9 9 999 
9 9 9 > 9 

ijijr X) ,j ij ij ♦(«> 

•J <) ') 99 
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t 



9.52 
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99 



999 



99 



9.38 



620 


DATA 9 


t 1: tttttttt 


99 


1: i z z 


i = E i fettttttttt 


7 7 i: - i 
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= = = = 
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= = 


tt 
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9 9 9 




99 


99 


9>9 99 


9.32 


630 


DATA 9 


99 9 99 


EEE 9 


99 


99 9 99 


E 9 


99 9 




1) 1) I) 1) 1) 


'J U'J EEE 9 99 9999999 'J 'J 


IJ 


<) <) >) 


= 9 99 9 y 


IJIJIJIJ 'J 


'1 Z 


Z.E 9 99 


53 5 99 <) ') IJ IJ iJiJiJiJ 


99 


99 9 99 


ijijijij IJ IJ IJ IJ 9 


9.83 


640 


DATA 9 


999 




99 


9999 


99 9tt1:9E9E99 


99 tttfe 


99999tt9t9t99t9i:91f9b9 99 999t9ttt9999 


t999tt9 9t 9 99 99t99tt9 991:9 9t9 


91: 


1:9 99 


1:1:9 91:9 1:t9 1:9 


9ttt!l:t9 


99 


99 9 99 9 99999 


9,75 


650 


DATA 9 


IJ IJ fe 


1: 


99 


'l>)'l<l <)>)')') t t t t!tt t 


99 iJiJiJ IJ 


>)>) 


'J 'J 1: 


1: t 99 ijij IJ 


IJ IJ IJ tt 


t 


?:> t 


t 99 IJ99E999E9IJ 1: 


tt 


t 


t 99 


IJIJ 999999 IJIJ t t 


tt 1: 


99 


<l <)<)>)>) '><)<) t t tttt tt 


9.54 



660 DATA 9 ttfettt 

99 1:1:999Etfett1:1:1:t1:1:t;1:t1'1:1:1:1:tttt99 tEEH 
E9 99999 99 9 9 99 t 991:1:t E E9 9 
9 9 9 9 9 9t 99 9999999 9 9»9 99 
9 91: 99 1;1:91:9t91: 9 9 9 9 9 99 t 
99 tttttttttttttttttttttttttt 9.56 
670 DATA 9 i)9999iJ iJ9999 9iJ9 99 99 



99 



9 9 99999Z.9 99 9 
9999999 99 E999iJ iJ9E9iJ 



9999999 99 9 



J9999 99 9 
99 ')9999<) IJ 
680 DATA 9 
99 1: > 1: 
t 9 1: 
ttt 1: 
99 



tl: 



9 


9 9 


9 9 


i99 


9 


9.86 


ttfettt 


tttt 


t t 


99 t 


99 tttt t fett 


t 


t 



9 
IJ 9'J9 

t * 
t 9t 
1: 99 

1: 1: 1: 

99iJiJ1:ttttt1:iJ|J1:1:t1:1:1:ttiJ|Jtt1:tt1:tiJ|J9.12 
690 DATA 91:1:1:1:^ 1:1:1:1:1: tttttttfetttttfet 
99t7»3t 1:t9 tt t')'r'T'TT'7'7>;'7'TT3 fe991:9*91: 
tOT^ t t9tt1:1:1:1:t 9 t991:9 91:1:tt9 9 Ct 
ti/^^D t ttt y1:1:991:9 -j'i'ji';?, 91:1:1:1:tt9>t 
t9 t 991:^^3 t -j'J'J'j'j'J'rT. t 1: 1: 

99tiJiJ1:1:1:ttiJ|J1:1:1:t1:1:tttiJ|Jt tiJ'Jfe 9.12 
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■tr-7'L. ^<7)*tt;RUNtSJ:Tl-L-r< 



-^UJX*-'*>5Ji^s DATA error in 90i: I 
/T^:* nT'n ^7 A*-'ffih L a to 



li 



A =y'7v'^mTmxmm/ 

/USRBSIJWyttiL 
A$ m=r-^ 

I , J !\y-y 



u ^U'ri'-?^ usRi 

10 REM3? 

eo 

30 
40 
50 
60 



REMS: 



70 Vi^Vlgl^o^^ft^, y'i^V 

80-300 Vi'>igT=-$'(^770 

310 REMX 

320-350 $"rSJbx^S5^ 

360 REMJC 

370-400 :^7—vmm 

410 REM3? 

420 f-h7.^-\^{\JSP,m 



■«] REM5: 

400 ^U7«Q!S.7|--JU^'J7 






60 - 








450 REM5: 

460-480 :^->V0'jy9mU 

490 REM5J: 

500-510 s.xmm 

5P0 REMSa 

530 y-ATT-A-SOiii 

540 REMJt 

550 9-^l'J7^7]iafb 

560 RE MX 

57D-5BD f-Ammm^-^y 

590 REMX 

600-690 T.'T-'J^-^i^'i 

390ri3c*^3&) 

SHDOOO-SHDOI 1 
;«;S:?5fi®(USR2) 
SHDOie-SHDOSD 
9-^iU7^i>Mfb(USRl) 
SHD(Z)3E~SHD071 
X-rvJU-^^XUSR) 
aHD(Z)3E~SHD(Z)4C 

SHD04D~aHD057 
SHD058~SHD067 
SHDOBB~aHD071 

mmmmwMi) 

SHD07e~SHD087 



SHD0BB~SHD0BA 

3'T-j \^^mmmtty)\y-^y 

SHDaBD-SHD27F 

^y)\,-^y 

SHDEB0-SHD297 
SHDBgB-SHDeCl 

yjv-^y 

SHD300~SHD3FF 

BHD40O~SHD401 

y-AT-hf-K 

SHD402 

5SorUS9'P'7^©¥S 

SHD403 

SHD404 

:3^ttixS7tt'-JU®x7'5'r 

SHD405~SHD417 

SHD4U3 

^-r KJL'l]®A^<^'5A^ffl7^^' 

SHD480~SHD5O0 

xy^-i KSttx-$'(VRAM 

©77^^^ hK'ttx-7JU'\lE 



7^-vS, /1t'-JU^l)¥iJS-9-7' sitsns) 



B 
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IMany Many Many 



iS^:•o)T•'-:?^ ^(7)*)i:<7)S[$ 







;K-JHUP 






K7K¥) 



^±.n 










(jif-:;p^5Aiifflf-5' 






10> 40 


20 > 77 


30> 37 


40>174 


5 0>157 


60> 87 


70> 37 


80>181 


9i5>175 


100> 80 


110>171 


120>215 


130> 12 


140M60 


150> 7 


160> 52 


170>187 


180>254 


190> 15 


200> 34 


210> 3 


220> 5 


230> 53 


240>113 


250>129 


260>107 


270> 64 


280> 32 


290>105 


300>240 


310>214 


320> 53 


330>126 


340>178 


350>158 


360>203 


370>239 


380>122 


390>123 


400M31 


410> 27 


420> 39 


430>223 


440>106 


450> 15 


460> 89 


470>208 


480 > 78 


490 > 35 


500>113 


510>119 


520> 45 


530>140 


540>164 


550>216 


560>189 


570>231 


580> 50 


590> 59 


600> 76 


610>126 


620>224 


630>119 


640> 92 


650>250 


660> 88 


670>109 


680>122 


690 > 93 
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10 *««*♦*»*♦«**♦♦< RED . STAR >*♦•**•♦****♦**** 

20 CLEAR300.&HC000:SCREEN1 . 2 . : DEFINTA-Z 

:WIDTH52:KEY0FF:C0L0R7.1 . 1 : DIMR ( 1 5 . 1 ) 

30 LOCATE10.8:PRINT''WAIT A MINUTE" 

40 FOR I = 07031 :S$ = '"':F0RJ = n032:READD$:S$ 

= S$ + CHR$(VAL(''&H" + D$) ):NEXT:SPRITE$(n=S 

$:NEXT 

5 F0RI=264T0727:A=VPEEK(I) : VPOKE I . AORA/ 

2:NEXT:F0RI=6T07:VP0KE8192+I.241 :NEXT 

60 F0RI=129T0249STEP2:F0RJ=I»8T0I»8+7:RE 

ADDS : VPOKE J. VALC&H' + DS) : NEXT : NEXT : FORI = 

17T031 :READC:VP0KE8192+I.C:NEXT 

70 FORI = 0TO40:READD$:POKE&HC0a0 + I.VAL(''& 

H'+DS) :NEXT 

80 FORI=0TO23:READD$:POKE&HD000+I .VAL("& 

H"+D$) :NEXT 

90 Z = 0:RESTORE1180:FORI = 0TO15:R(I.0) = 1 :R 

(I. 10)=1 : N EXT : FORK = 0TO8: FORI =1T09: RE ADDS 

:FORJ = 0TO15:R(J.I)=VAL(MIDS(D$. J + 1 .1 ) ) :N 

EXT:NEXT:READK(K) .A.B:R(A.B)=10 

100 FORI=0TO10:FORJ=0TO15:A=&HC100+I»32+ 

J+K»352:B=R( J.I)<»8+129:P0KEA.B:P0KEA+16. 

B+2:NEXT:NEXT:NEXT 

1 10 0NKEYG0SUB41 0.460. 1 270 . 1 280 : KEY ( 1 ) OF 

F:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:SC=0:RE= 

3:ST=1 :CLS:GOSUB510 

120 DEFUSR=&HC00 0:DEFUSR1=&HD0 00:DEFUSR2 

= &HD0 0C:A = USR(STt»352-352) : LOCATES . 22 : PR I 

NT"SCORE HI-SC STAGE REST" : GOSUB480 

130 X=1:Y=1:KA=K(ST-1):KE=0:H=B:DEFFNZ=V 

PEEK(6144-»X»2 + Y»64) : DEFFNX = VPEEK (6208 + X<* 

2+Y»64) 

140 KEYd )0N:KEY(2)0N:KEY(3)0N:KEY(4)0N: 

PUTSPRITE1 . (X»16.Y»16-1) .5.H:PUTSPRITE2, 

(X»16.Y»16-1 ) .15.H + 1 :S = STICK(0) : IFS = 30RS 

=7THENPUTSPRITE3. ( X»1 6- ( H-3) «1 6 . YY»1 6-1 ) 

.U.11+S¥3:IFS=3THENH=4ELSEIFS=7THENH=2 

150 IFS=0THENPUTSPRITE3. (0.209) 

160 XX=X:YY=Y:X=X+(S=7)-(S=3) :IFFNZ=1370 

RFNZ=201ORFNZ=217THENX=XX 

170 IFFNX< >137ANDFNX< > 1 53ANDFNX021 7THEN 

Y = Y + 1 

180 A=FNZ¥8-17:IFA>0THENONAGOSUB200.210. 

220. 2'30. 240. 270. 290. 300. 310 

190 IFSTRIG(0)THEN370ELSE140 

200 PLAY"06L64V15CEG" . "07L64V1 5CEG" : SC=S 

C + RE»10:GOSUB480:KA = KA-1 : Q = X*2-. W = Yw2 : E = 

:GOSUB490:RETURN 

210 YY=Y:Y=Y-1 :M=1 6: GOSUB500: RETURN 

220 IFKE = 1THENX = XX:Y = YY:RETURNELSEQ = Xtt2: 

W=Y»2:E=0:GOSUB490:KE=1 : PLAY"06L2S1 M9000 

E"."O8L2S1M9000E": RETURN 

230 IFKE=0THENX=XX:Y=YY:RETURNELSEQ=Xh2: 

W=Y»2:E=0:GOSUB490:KE=0:PLAY"O4L64V15CBE 

G" ."06L64V15CGEB" : RETURN 

240 KEY(3)0FF:KEY(4)0FF:Q=X«2:W=Y»«2:E=B: 

GOSUB490 

25 YY=Y:Y=Y-1 : IFFNZ=1 29THEN260ELSEPUTSP 

RITE0. (0.209) :PUTSPRITE3. (0.209) : BEEP: GO 

TO180 

260 F0RI=YY»16-1T0YY»16-17STEP-1 rPUTSPRI 

TE0. (X»16.I) .3.6:PUTSPRITE1 .(X«16.I).5.0 

:PUTSPRITE2. (X»16.I) .15.1 :PUTSPRITE3. (X» 

16.1+16) .9.7:S0UND6.32:S0UND7.55:S0UND8. 

16: SOUND 11 . 1 : S0UND1 2 . 1 : S0UND1 3 . 9 : NEXT : 

GOTO250 
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27 IS IFFNX = 129THENQ = X»2:W=(Y + 1 )»2:E = 56:G0 

SUB490:W=Y»2:E=0:GOSUB490:PLAY"O3L64V15C 

"."07L64V15E":RETURN 

280 IFFNX< >129THENQ = Xt»2:W = Y»t2:E = 0:GOSUB4 

90:W=(Y+1 )»2:GOSUB490:PLAY"O4L64V15CE"." 

06L64V15GC":RETURN 

290 Q=X»2:W=Yh2:E=8:GOSUB490:PLAY"O1L64V 

15CE" ."03L64V15GC": RETURN 

30 Q=X»2:W=Ytt2:E=0:GOSUB490:Y=YY:PLAY"O 

5L64V15CE"."O8L64V15CE":GOTO180 

310 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4) 

OFF:IFKA=0THENFORI=2TO19:LOCATE2.I:PRINT 

SPC(28) :NEXT:GOTO320ELSERETURN 

320 L0CATE8.8:PRINT"ti t ttiti tti fctitit;" : 

L0CATE8.9:PRINT"t;ti t; t; ti ti ti":L0CATE8 

.10:PRINT"titj t; ti t titt;" : LOCATES . 1 1 : 

PRINT"ti tt ti t t t;":L0CATE8.12:PRINT" 

ti ti titit; titi titititi" :F0RI = 1T03:PUTSPRITEI 

. (0.209) :NEXT 

330 PLAY"05L64V158AGR64AGFR646FER64FEDR6 

4L12BAGBC4" . "03L64V1 5BAGR64AGFR64GFER64F 

EDR64L12BAGBE4"."06L64V15BR64R64R64AR64R 

64R64GR64R64R64FR64R64R64L12BAGBG4":ST=S 

T+1 :SC=SC+RE«10:FORI=-1TO0: I =PLAY ( ) : NEX 

T:IFST=10THEN340ELSE120 

340 F0RI=2T019:L0CATE2. I : PRINTSTRINGS ( 28 

.241 ) :NEXT:LOCATE8.7:PRINT"CONGRATULATI0 

NS!":LOCATE10, 13:PRINT"HIT SPC KEY!" 

350 PLAY"05L8V15EBG4DAF4CGE4G2EBG4DAF4CG 

B4D2" ."07L8V15EBG4DAF4CGE4G2EBG4DAF4CGB4 

02" ."O4L4S1M1000BGAFGEGGBGAF6ECC" :FORI = - 

1TO0:I=PLAY(0) :NEXT 

560 F0RJ=1T08:D=VPEEK(1935) : FORI= 1 935T01 

929STEP-1 :VP0KEI.VPEEK(I-1 ) : NEXT : VPOKE 1 9 

28.D:NEXT:IFSTRIG(0)THEN110ELSE360 

370 IFVPEEK(6208+(X+(H-3) ) <t2 + Yt«64 ) = 1 29TH 

ENQ=(X+(H-3) )«2:W=(Y+1 ) w2 : E=88 : GOSUB490 : 

PLAY"03L64V1,5C#E"."05L64V15C#E" 

38 IFVPEEK(6208+X«2+Y«64)=217THENQ=X»2: 

W=(Y+1 )f2:E=0:GOSUB490:PLAY"O5L64V15F#". 

"04L64V15B#" 

390 IFVPEEK(6080+X»2+Y»t64)=217THENM=32:Y 

Y=Y:Y=Y-2:GOSUB500:IFFNZ=137ORFNZ=201THE 

NPLAY"03L16V15C#"."04L16V15F#": Y = Y + 1 :Q = X 

<t2:W = Y»2:E = 0:GOSUB490 

400 GOTO140 
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413 KEY(1)0FF:KEY(2)0FF:KEY(3)0FF:KEY(4) 

0FF:PUTSPRITE1 .(X»16.Y«16-1). 5.0: PUTS PRI 

TE2. (X»16.Yt«16-1 ) . 15. 1 :S0UND6.31 :S0UND7. 

254: SOUNDS. 16:S0UND1 1 . 10:SOUND12. 10:SOUN 

D13.13 

42 FORI = 0TOY» 16-16 :SOUND0.Ht3¥2:SOUND1 . 

0:PUTSPRITE3. ( X«16 . I ) . 1 5 . 1 4 : PUTSPRITE4. . ( 

X«16.I-16) .9. 15:NEXT:PUTSPRITE1 . (X»16.Y» 

16-1 ) .6.20 :PUTSPRITE2. (X« 16. Y« 16-1 ) .15.2 

1 

450 S0UND6.31 : SOUND? . 55 : SOUNDS . 1 6 : SOUNDl 

1 .10:SOUND 12. 30: SOUND 13.9 

44 FORI = 0TO30:PUTSPRITE3. ( X»1 6-8- I . Y<t16 
-17-1) .11 .16:PUTSPRITEi. ( X<t 1 6 + S+ I . Y»1 6-1 
7-1) .11 . 17:PUTSPRITE5. (X»16-8-I.Ytt16-1 + I 
).11.18:PUTSPRITE6.CX»16+8+I.Y»16-1+I).1 
1 .19:NEXT:F0RI = 3T06:PUTSPRITEI. (0.209) :N 
EXT:PUTSPRITE0. (0.209) 

45 RE=RE-1 :GOSUB480:BEEP:IFRE=0THEN460E 
LSE120 

460 KEY(1)OFF:KEY(2)OFF:KEY{3)OFF:KEY(4) 
OFF:FORI = 0TO4:PUTSPRITEI . (0.209) :NEXT:FO 
RI=9T011 :L0CATE7.I : PRINTSPC ( 1 S ) : NEXT: FOR 

I = 1TO8:LOCATEI»2 + 6.10:PRINTMID$(''G A M E 
V E R!".I*2-1 .2) :PLAY"02L64V15C#"."03 

L64V15E#":FORJ=0TO300: NEXT: NEXT 

470 PLAY"03L8V15GCEA4GECB4F#4B4''.''06L8V1 

5GCEA4GECB4F#4B4'' ■ "02L8S1 M200 0GGGGCCCCEE 

CCBB":FORI=-1TO0:I=PLAY(0) : NEXT : G0T01 1 

480 HS=HS-(SC-HS)«(SC>HS) : L0CATE3 . 23 : PRI 

NTUSING"##### #««## #» #';SC:HS 

;ST;RE; :RETURN 

490 L0CATEQ.W:PRINTCHR$(129+E) ;CHR$(133+ 

E) : : LOCATED. W+1 : PRINTCHRS ( 1 31 +E ) :CHR$(13 

5+E) : :RETURN 

500 S0UND6.31 :S0UND7,254:S0UND8. 16: SOUND 

II . 10:SOUND12. 1 : SOUNDl 5 . 1 3 : FORI =YYt»16T0 
YYW16-MSTEP-1 : SOUND0 . I »3¥2 : SOUNDl .3: PUTS 
PRITE1 . (X»16.I) .5.0:PUTSPRITE2. (X»16.I) . 
15.1 :NEXT:BEEP:RETURN 

510 IFSTICK(0)THEN640ELSEFORI=190TO50STE 
P-1 :PUTSPRITE0. (110.1) .3.29:PUTSPRITE1 . ( 
126.1) .3.30:PUTSPRITE2. ( 1 42 . I ) . 3 . 31 : NEXT 
:PLAY''O7L4S1M40 00G"."O8L4S1M40 00B":FORI = 
0TO1000:NEXT 

520 FORI =190TOS0STE P-1 :PUTSPRITE3. (118. I 
) .11 .23:PUTSPRITE4. (134.1) .11 .24:PUTSPRI 
TE5. (118. 1+16). 11 .25:PUTSPRITE6. (134. 1+1 
6) .1 1 ,26:NEXT 

530 FORI=1TO20:FORJ=6TO9STEP3:PUTSPRITE7 
. (118.96) .J.27:PUTSPR I TE8. (134.96) .J. 28: 
BEEP : NEXT: NEXT :PUTSPR I TE7. ( 1 1 8 . 96 ) . 8 . 27 : 
PUTS PR I TE8. (134.96) .8.28 

54 LOCATEU. 1 5 : PRINT"?7a»(nO" : S0UND6 . 31 : 
S0UND7. 55: SOUNDS. 16:S0UND11 . 100: SOUNDl 2. 
100:SOUND13.9:FORI=0TO10000:NEXT:BEEP 

55 FORI = 50TO7STEP-1 : PUTSPRITE0 . ( 11 . 1) . 
3.29:PUTSPRITE1 , ( 1 26 . I) . 3 . 30 : PUTSPRITE2 . 
(142.1) .3.31 :NEXT 

560 LOCATE0. : PR INT" £"; STRINGS (30. 241 ) ;" 

4": LOCATE 0.22: PR I NT"*": STRINGS (30. 241 ) ;" 

5": :F0RI = 1T021 : LOCATE0 . I : PRINT''t;" : LOCATE 

31 .I:PRINT"t;":NEXT 

5 70 RESTORE 11 70: FORI = 1T07:READDS: LOCATE 1 

.I+2:PRINTD$:NEXT:A=64 

580 F0RI=ST0232:PUTSPRITE14. (1.16) .15. A¥ 

8:A=A+1 :IFA=96THENA=64:NEXTELSENEXT 

590 LOCATEU .21 :PRINT"HIT SPC KEY!";:A=8 

:B=0:C=0:D=0 

60 PUTS PRI TE14. ( A . 1 35 ) . 5 . B : PUTSPRITE1 5 . 

(A.135) .15.B+1 :A=A+1 :IFA=232THENA=8 

610 D=D+1:IFD=5THEND=0:IFB<>0THENB=0ELSE 

IFC=0THENB=2:C=1ELSEIFC=1THENB=4:C=0 



620 IFSTICK(0)THEN640 

650 IFSTRIG(0)THENCLS:FORI=0TO15:PUTSPRI 

TEI . (0.209) : NEXT: RETURN ELS E600 

64 FORI = 0TO15:PUTSPRITEI. (0.209) :NEXT:C 

LS 

650 DEFUSR=&HC000:A=USR(ST»352-352) :LOCA 

TE13.23:PRINTUSING"STAGE ##":ST; 

660S=STICK(0):IFS=3THENST=ST+1+(ST=8):G 

OTO650ELSEIFS=7THENST=ST-1-(ST=1 ) :G0T065 

0ELSEIFSTRIG(0)THENRETURNELSE660 

67 DATA07. 1 F . 33 . 21 . 25 . 33 . 00 . 3F . 27 . 03 . 03 

.27.3F .3F.3F . IF. E0 . F8.CC.84.A4.ee. 00. FC. 

E4.C0.C0.E4.Fe.FC.FC.F8 

680 DATA00.0 0.0e. 1E.1A.0C.0 0.40.98.BC.BC 

.98.40.00.0 0.00.0 0.00.50.78.58.30.00.02. 

19. 3D. 3D. 19. 02. 00. 00. 00 

690 DATA07. 1 F . 35 . 21 . 29 . 33 . 00 . 3F . 1 F . 0F . 0F 

.1F.3F.3F.3F.1F.E0.F8.Fe.FC.FC.FC.00.FC. 

FC.FC.FC.FC.Fe.FC.FC.FS 

70 DATA00.00.0C> 1E.16.0C.00.00.60.F0.F0 

.60.00.00.00.00.00.00.00.00.00.00.00.02. 

01 .01 .01 .01 .02.00.00 .00 

710 DATA07.1F.3F.3F.5F.5F.0 0.3F.3F.3F.3F 

.3F.3F.5F.5F. 1F.E0.F8.eC.84.94.eC.00.FC. 

F8.F0.F0.F8.Fe.Fe.FC.F8 

72 DATA0 .00. 00. 00. 00, 00. 00. 40. 80. 80. 80 
.80. 40. 00. 00. 00. 00. 00, 50. 78. 68. 30.00. 00. 
06>0F,0F.06>00,00.00.00 

73 DATA0 .00.00,00,00.00,00,40,C0.e0.e0 
.C0. 40. 80. 80. 60. 00. 00. 00. 00. 00. 00, 00, 02. 
03.03.03,05.02.01 .01 .06 

740 DATA01 .44,08.29.21 .01 .54.95.84.81 .11 

.01 .04.00,01 .08.80. 00.24, 10. 54. 52.42. 4A. 

28.20.20.08.00.40.00 . 00 

75 DATA01 . 01. 01. 01, 09, 05, 03, FF, 03. 05. 09 

. 01. 01. 01 .01. 00. 00, 00, 00 .00. 20. 40. 80 >FE> 

80.40.20.00.00.00.00.00 

760 DATA0 0.00,0 0.0 0,C4.52,0F,0 3,07,0A,02 

.04.04.08.08.0 0.20.20.40.40.80, A0.C0. 80. 

E0. 98. 46. 00. 00. 00. 00. 00 

770 DATA00.40.20.10.09.0 5.03.0F.03.05.09 

. 10. 20. 40. 00. 00. 00. 04. 08. 10. 20. 40. 80. E0. 

80.40.20.10.08.04.00.00 

780 DATA08,08.04.04.02.0A.07.03,0F.32.e4 

.00. 00. 00. 00. 00. 00. 00. 00. 00. 46. 98.E0. 80. 

C0.A0. 80 .40.40.20.20.00 

790 DAT A0 0.00. 0. 0. 0, 00. 00. 00. 00. 00. 01 

,20.02.00.08.80.00.00.00.00,00.00.00,00, 

00.20,00.08,44,25,98,67 

800 DATA00<00.00 ,00,00,00.00.00,00,04.00 

. 10. 22. C4. 19. E6. 00. 00. 00. .00.00.00.00.00. 

00.00.80,04.40.00,10.01 

81 DAT A06. 07. 05. 01 .01. 01. 00. 01. 00. 01, 00 

.01 .05.05.01 ,01 .60. E0.e0. 80. 80. 80, 00.80. 

00.80.00 .80. C0.e0. 80. 80 

820 DATA01 .08, 02, 20. 08. 00. 22. 88. 01. 55. 05 

. 25. 22. 12. 0C. 03. 00. 40. 00. 10. 84. 10. 40. 0A. 

20.05.50 .40.90. A0.A0.C0 

850 DATA00.0 0.00.00.0 0,0 0,00.01 .01 ,05,0 F 

.3C.00.01 ,0F.FF.01 .01 .1 1 , 11 ,33.33.63.Er. 

C7.8F.3E.5E.7C.F8.F0.C0 

84 DATA80.80,88,88,CC,eC.C6.E7.E5.F1 .7e 
.7C.5E.1F.0F.03.00.00.00.00.00.00.00.80. 
80.C0.F0.3C.00.80.F0 ,FF 

85 DATAFF.0F.01 .00.3C.0F.05.01,01,00,00 
.00.00.00.00.00.C0.F0.F8.7C.5E.3E.8F.e7. 
E7. 63. 33. 35. 11,11,01.01 

860 DATA05,0F, 1 F , 5E . 7C . 7C . F 1 . E5 . E7 . C6 . CC 

.eC.88.88.80.S0.FF,F0.80.0 0.5C,F0,C0.80, 

80.00.00.00.00.00.00.00 

870 DATA00.00.07. 1 F . 55 . 5B . 55 . 5F . 40 . 1 F . 0F 

,0F,1E.2F,75,FF.00.00.E0.F8,AC,DC,AC.Fe. 

02.F8.F0.E0. 18.FC.SE.FF 



/ 



m 
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880 DATA00>00,a0,00,eA>04i0A.80.00>60>F0 

00>l96>0F>eF.S6< 00 .00.00 

890 DATA06.0B.4F.06.00.60.B1 .F1 .60.0C.0C 

.20.02.01 .00.00.0 0,00, 18. 2C,3C. 18.80.90. 

04.C0.C0.00.00.20.00.80 

900 DAT A0 0.0 0,00. 00, 00.00.00,00.00,00.00 

, 00, 00. 00. 00. 00. 01. 01. 03. 03. 07. 07. 0E.0E. 

1C.1C.38.38.70.70.E0.E0 

910 DATA80.80.C0.C0.E0,E0.70.70.38.38. 1C 

,1C,0E,0E,07.07.00.00,00.00,00,00.00.00. 

00.00.00.00.00.00.00,00 

920 DATA01 ,01 ,03,03,07,07,0E.0E. 1C, 1C,38 

.38,70.7F.FF,FF,C0,C0,80,80,00,00.00.00, 

00,00.00.00.00.FF.FF .FF 

930 DATA03,03,01 ,01. 00. 00. 00, 00, 00, 00, 00 

,00.00.FF.FF.FF.80.80.C0,C0,E0.E0.70.70. 

38.38,1C,1C.0E,FE,FF,FF 

940 DATA00. 00. 00, 00, 00, 00, 00. 00. 00, 00. 00 

.00.00.00.00.00,30.38.7C.3E.1F,0F,07,03, 

03, 03, 03, 03. 03. 00. 00. 00 

950 DATA0C. 1C,3E,7C,F8,F0,E0,C0.C0,C0.C0 

,C0,C0, 00. 00. 00. 00. 00. 00, 00. 00. 00, 00, 00, 

00.00,00,00,00,00,00.00 

960 DATA00.00.0 0.1B.38,3F,3F,7F,7F.6F.EB 

.DB.C3.00,00.00.00.00.00.3F,79,F0,F0,78, 

3C,1E.3D.7B.F7,0F.1E.3C 

970 DATA00.00.01 .C3.E7.FF,7E.3C.7E.FF.E7 

,C3.81,00,00,00,78.F0.E0.DF.9F.18.18.DE. 

OE.19.99.D6.FB.00.00.00 

980 DATA0 0.0 0,00.BE . BE . 7E . 7E . EE , EE ■ CE , CE 

,8E.8E.00.00>00.00.00.00.E3.FB,FF>FF>EF. 

E7.E3.E3.E3.E3.00.00. 00 

990 DATA0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 

0,0,0.0.^.0.0.0.0.0.0.0.0.0.0,0 

1000 DATA00,F0,FC,FE.FE.FE.FC.F0,00, IF, 7 

F,FF,FF,FF,7F,1F,00.1F.7F.FF,FF,FF,7F,1F 

.00,F0,FC,FE.FE.FE,FC,F0 

1010 DATA7F.80,81 , 81 , 81 , 83 . 83 . BF . 8F . 87 . 8 

7.8E.88,90,80,7F,FE,01 ,01 ,01 ,01 .81 .81 .F9 

.El .CI .CI .El .21 . 1 1 ,01 .FE 

1020 DATA7F.80.A3.80.AF.80.A3.80.AF.80.A 

3.80.AF.80.A3.7F.FE.01.C5.01.F5.01.C5.01 

.F5.01 .C5.01 .F5.01 .C5.FE 

1030 DATA0 0.01 .03. 03. 03. 01. 01. 01. 03. 07.0 

E.1C.38.74,EA,44,E0,F8.DC,8E,06,B3,87,CF 

,FE,1C.00.00.00,00.00.00 

1040 DATAFF.83,83.83,85,85.89,F3,F3.89.8 

5.85.83.83.83.FF.FF.C1.C1.C1,A1.A1,91.CF 

.CF .91 ,A1 ,A1 ,C1 .CI .CI .FF 

1050 DATA00.00,0 0,00,03.04,08,68,F0,FF,F 

8 > F0, 60, 90, 90, 60. 00. 00. 00. 00. C0. 20. 10. 16 

,0F.FF,1F.0F.06.09.09.06 

1060 DATA7F.80.A1 . 97 , 8F , 9E , 9C , B9 , B8 , B0 , B 

0.90,90. 80.80. 7F.FE .01 .El .F9. 81 ,01 .01 .01 

,81 ,41 ,21.11 .09.05.01 .FE 

1070 DATA7F.80.83.8F.99.91 . B3 . A7 . A7 , BF , 9 

F. 9E.8D,82,80,7F,FE, 01 ,C1 ,F1 ,39.39. F5.E9 

,F5,E9.F1 .A9.51 .81 .01 .FE 

1080 DATAFE.AA.D4.AA.D4. AA.D4.0 0.EF.AA,4 

D , AA , 4D , AA , 4D , 00 , F E , AA , D4 , AA , D4 . AA . D4 . 00 

.EF.AA.4D.AA.4D.AA.4D.00 

1090 DATA01 .03.0E.19.77.CE.74.98.EE.F3,F 

D.7E. IF ,0F,03,01 .80,C0,70.98.EE.73.2E. 19 

.77.CF.BF.7E.F8.F0.C0.80 

1100 DATAFF.F0.0F.0E.16.17,13,11 ,11,13,1 

7,16.0E,0F,F0,FF.FF.0F.F0.70,68.E8.C8,88 

.88.C8.E8.68.70.F0.0F .FF 

1110 DATA48 ,D5.55.5C,45,55,55.E8.88,54,5 

4,88.54.54.54.88. AE .AA.AA.AA. 4 A, 4A,4A,4E 

, AE . AA , AA , AA , CA , AA . AA . AE 

1 120 DATA6E .8A.8A.4A,4A.2A.2A,CE,EE,84,8 

4<84,C4,84,84,84.0.0>0>0>0.0,0,0,0,0,0,0 

,0.0.0.0 



1130 DAT AF E. AA. 04, AA.D4.AA. 04.00.07,1 9, 2 

5,49,57,A9,89,FF,FF,89.A9.57.49.25,19,07 

,E0,98.A4,92.EA.95.91 ,FF,FF.91 .95.EA.92, 

A4.98.E0 

1 1 40 DATA254 .107. 207 , 1 77 . 1 03 . 49 . 1 1 6 , 223 , 

65,225.113.241 .241 .129.129 

1150 DATA2A.F8,F7,11 ,00,C1,19.0E,16.3E,1 

7,91 ,32, DC. F3.3E. 01 .32.00. F3. 06.1 0,7E,CO 

. A2 . . C6 . 04 . CD . A2 . 00 . 23 . 05 . 02 . 1 6 . C0 . 0D . 

C2.09.C0.C9 

1160 DATA21 . 00, 18, 11, 00. D1. 01. 00. 04, C3, 5 

9, 00, 21, 00, 01. 11. 00. 18. 01. 00. 04. C3.5C. 00 

1170 \>K\hJJ)nj)J)))JJ)J)))J)JJ)J))))J), 

t:,)tiJ Jt^n ) )Xi) )h)hJt:.)tiJ , )tiJti)hti) >tiJti) ) JtiJ J 

ti) J , )ti)hjtiXiti)hXi) ) ftit^j J )tij jt,)hJXiJXi) , J ) / J ) 

))))))))> J)U>))) J})))))) 

1180 0ATA1 0020 00220002001 .11110011110011 

11. 1000000000000001. 102000200200020 1.101 

1111001111101.1000000000 00 0001 .100 002022 

0200001 .1000011111100001 .1220 000 0000622 

1 .16.12.6 

1190 DAT A 1000 000000 00001 .10300 012200400 

01.1011111110000021. 10 00102222100011 .123 

0101111100001 .1030100000109901 .103020002 

000 00 01 ,1030100019990151 .1030 06000006010 

1.10.14.9 

120 OAT A1 00 0800800 02201 .11111100111111 

51 . 1022001000000001 ,1011900900011 111,101 

0000010020001 .10040000 09000301 . 100006000 

030 0001 , 13999100000000 01 ,132222262222232 

1,16,14.3 

1210 DATA 100 00220002221 .11170000000001 

11. 1000000000001 021. 102000001 1100041 .101 

0220210 501001 .10001 11911110001. 100100000 

00000 01 .12010006020000 01 ,122122211112226 

1 .20.9.5 

1220 DAT A1 000 022000 08001 .1999999990 052 

31 .1110302200829201 .1111191119111111. 100 

000 0030200 01 . 10020 040 000301 .100000000 

2030001. 1000 02 1000000 021. 122620202200220 

1 .20.14.1 

1230 DAT A 100000 02200 00041 .11100000000001 

11, 1001 1700007 11001 ,1420111221110001 ,103 

2028110650241 ,1010012000102331 ,100102002 

200 5231 ,11 11200500001 111 ,122262200020022 

1 ,23.3.1 

1240 DAT A 1022222222222241 ,11111100001111 

11, 1000005555000001 ,100000020000 0001 ,100 

2222222222001 ,1032022002202301 ,100000010 

00001 , 1020000 000000301 ,138828886222232 

1 ,36.8.4 

125 DATA1 00 0002200 00021 .11900001100000 

11 .1090 021001002101 .1201910220191001 .102 

290 0020 090201 .1061000000001001 .101293022 

0290901 .1 1200161 10100011 .1202008228060 00 

1 .21 .2. 1 

1260 DATAl 000000000000001 .1011 1000000010 

01 ,1090000000009001 ,101 1001 1001 11001, 109 

0009090909001 ,101 11010101 11 021, 100000000 

0000001, 1000000000000061, 122222222222226 

1,14.14.1 

1270 KEY(3)0FF:UU=USR1(1):Z=1:FX=X:FY=Y: 

FR=RE:FS=ST:FC=SC:FH=HS:FK=KE:FH=H:FQ=KA 

:FB=B:FORI=0TO99:LOCATE11 .11 :PRINT"SAVE 

OK !": NEXT :G0T01 280: RETURN 

1280 IFZ=0THEN120ELSE:KEY(4)OFF:UU=USR2( 

1 ) :X=FX:Y=FY:RE=FR:ST=FS:SC=FC:HS=FH:KE= 

FK:H=FH:KA=FQ:B=FB:Z=1 : RETURN 
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130 ^-v:7<^1g]|S)StiiS^. 
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160 ^^yy<h^mm^ 
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190 SU^-A7]*iJS 
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10 FOR 1=0 TO 1 :SOUND 0.50 


SOUND 


7.62 


SO 


UND 8,15:NEXT:F0R J=0 TO 1 


SOUND 


0.56 


SO 


UND 8.15:NEXT:G0T0 10 
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11111 0jtrOG I 1 1 1 
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7. ie6=SOUND7. BPt 



10 SOUND 7.254:S0UND 8.15:F0R 1=0 TO 255 
:SOUND 1.I:S0UND 6 . I : NEXT : SOUND 7.255:F0 
R J=0 TO 500:NEXT:GOTO 10 
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TO 50 STEP-1 :~ 
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10 SOUND 1.0:SOUND 7.56:S0UND 


8. 16:S0UND 


12.8:S0UND 13,0:FOR 1=110 TO 


50 STEP -1 


:SOUND 0.I:NEXT:SOUND 8.0:FOR 


1=0 TO 150 


0:NEXT:RUN 
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^oKo, 7br-l-tao :7p 
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10 SOUND 7.38 

20 PLAY "L64O5S10M200" ."L6407" ,"16403" 
30 PLAY "BAGAGFGFEFEDEDC8" ."BAGAGFGFEFED 
EDC8" ."BAGAGFGFEFEDEDC8" 
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10 
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20 


FOR 1=1 TO 150:FOR J=1 TO 50 STEP 30 


30 
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40 
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f 
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0. 
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30 
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40 


FOR 1 = 


6 
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8, 
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60 


NEXT 
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8 
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= 
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J 
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7. SLit-l^^K 



/J^;Ri7>IJl«J®A*'+l;i:7 

p^'^A54o«ur*fco'"^ 
®^® J t n 5 ffl A'^s -3 r . fc /c 

(Di&CDmUCDtztiK OU^-fK 

©r\ -^^toCL^ufco 



iKiP 'Jv;R^s« 



fc®rlSfflofT3D®''STEP- 

1 j®t;i5tf^>7Kii^sii 
Lyru5®r\ 3;i®fi^^x 




10 SOUND 7.55:S0UND 6.30:SOUND 8.16:S0UN 
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20 FOR 1=9 TO 1 STEP -1 

30 FOR J=255 TO 20 STEP -1 

40 SOUND 12.1 -.SOUND 1 1 .J 

50 NEXT J:NEXT I 
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30 
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50 


IF RNDdX .15 THEN A1=20 


60 


IF RNDd X .1 THEN A2=15 
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0" 
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RND(-TIME) 
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B- 
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IF P>5 THEN A 
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= E 
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10 
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20 


FOR S=140 TO 40 STEP -6 


30 


SOUND 0.S:SOUND 2.S+7:S0UND 4.S+2 


40 


NEXT 


50 


FOR S=0 TO 400:NEXT 


60 


SOUND 8.0:SOUND 9.0:SOUND 10.0 


70 


FOR S=0 TO 80:NEXT 


80 


GOTO 10 
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